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I. INTRODUCTION 


A. BACKGROUND 

Many designs for local area networks are currently available on the 
commercial market, however, all are designed to provide for sharing of 
high performance centralized assets such as file servers ar relatively 
scarce resources such as specialized printers: or for the movement of 
data and files. None are known to provide a distributed processing 
capability by using the inherent capabilities of the attached 
microcomputers or preacessoars under the control of a central master 
computer. 

The purpose of this thesis is to demonstrate such a capability in a4 
laboratory environment, utilizing a network of slave oar server 


microcomputers capable af running separate applications proaorams under 


the control of a central or master microcomputer. 


B. PROJECT DESCRIPTION 
ie Target Hardware 
The proposed demonstration network consists of a single master 
IRM FC compatible microcomputer connected ta two IBM FC or IBM FC/AT 
compatible slave microcomputers under the operational control of the 


central master. 


Pi Network Topology 
The proposed demonstration network 1¢ a small star network, 
with the master microcomputer as the central node. 
oe Network Media 
The proposed networking media shall be the standard RS-232C 
serial communications port provided with each microcomputer. The 
central microcomputer 15 auqmented with a second RS-232C serial port to 
allow independent communications with both slaves. 
4, Software 
a. Operating System 
The operating system selected for the microcomputers 
shall be Microsoft MS-DOS, version 3.0 or later, as supplied with each 
microcomputer. 
ape Programming Language 
All apoelications software far the micracomputer control 
programs was originally intended to be written in FRR Software Inc. 
Janus/ADA. The actual implementation 18 in Borland Turbo Pascal, 
version 4.46, 
ae Proposed Capabilities 
a. File Transfer 
The master microcomputer shall be able to initiate 
program and data file transfers to and from any of the connected slave 
microcomputers. | 
b. Distributed Processing 
The master microcomputer shall be able ta command the - 


execution of selectec programs resident on any slave microcomputer, 


be 


receive an acknowledgment of the command from the Slave, and receive 
the text output of the selected program after execution. 
Gg Control of Multiple Slave Microcomputers 
The master microcomputer shall be able to control more 
than one slave microcomputer. 
d. Remote Login 
The master microcomputer shall be able to remotely log in 
to any slave microcomputer and operate it remotely over the 
communications network. 
e. Error Handling 
The master and slave microcomputers shall attempt to 


restore cammunicatians to resume contral in the event of a fault. 


C. STRUCTURE OF THE THESIS 

Since Be cee = ec micracomputers and operating systems were 
selected, the majority of this thesis consists af the programming 
effort ta create the network control programs, and the source code tor 
those programs. What follaws will describe the design cansiderations 


redicated by the choice of Kardware, aperating system and programming 


ig 


languaget:; & descriptian of the significant problems encauntered:; and 
instructions for duplicatina the nétwork along with program operation 
and maintenance. 

Chapter I] will describe the programmer’s model of the hardware 
utilizec in the microcomputers and interrupt driven serial 
communication considerations. Chapter ITI will discuss the essential 


features of the operating system as they contributed ta the thesis. 


Chapter IV will describe the salient features of the two programming 
languages considered, and the reasons for selecting a replacement for 
Janus/ADA. Chapter V will discuss the implementation from a systems 
viewpoint with a brief description of each software module. Chapter VI 
summarizes the conclusions reached from this thesis. 

The appendices provide detailed descriptions of the program source 
code, the source listings, an operator's manual, a guide to program 


maintenance, and the bibliography. 


II. HARDWARE 


A. THE IBM PC/AT PERSONAL COMPUTER 
The IBM FC/AT personal computer and its close compatibles, such as 
the Zenith 72-248 adapted as the standard Navy desktop personal 
computer, were selected as the target hardware for both program 
development and application. These computers are general purpose, and 
typically have at least 4S40F af random access memory for operating 
system and proaram execution, one or more floppy disk drives handling 
3-1/4 inch diskettes with 260F bytes of storage each, a hard disk drive 
holding from ten ta twenty megabytes of storage, and a monochrome or 
color monitor displaying 80 characters by 24 lines of text. One 
AS-222C serial interface is standard, and a second is aptional. The 
computer also comes with a parallel printer port. The following 
herdware features are of interest to aid in understanding the software 
gevelomed: (Norton, iYds, pp. 19 - 65) 
Ve The Central Processor Unit 
The programming model of Table 2.1 is common to the Intel 
6086, 86086 and 80x64 series of microprocessors used in the IBM FC/AT 
compatibles. This information 1s not provided to support assembly 
language programming (there is very little in this implementation), but 
for interface considerations to control, read from, write to, or obtain 
the status of the IBM FC hardware in support of the distributed 


Processing network. The usage af specific register= for software 


ff 


interruats is defined by calling conventions similar to the formal 
parameter declarations for procedures and functions in higher level 
languages such as ADA. 

TABLE 2.1 


MICROPROCESSOR REGISTERS 


Register Type Function 

Scratch Fad Registers: Arithmetic and data transfer 
AX Accumulator Arithmetic operations 

BX Rase Table pointer 

ae Counter Repetition loop 

DX General General purpose 


The above registers may also be addressed as eight bit pairs, i.e., 
register AX may also be utilized as AL and AH for the low and “high 
order bits. 


Segment Registers: Separate cade, data, stack and an 
extra segment 


ee Code Segment Locates the code segment in memory 

DS Data Segment Locates the data segment in memory 

aS Stack Segment Locates the stack seqment in memory 

ES Extra Segment Interseament transters 

Index Registers: Relative offset fram a segment 
register 

IF Instruction Foints to next instruction to be 

Pointer executed 

Se Stack Fointer Foints to next available location oan 
stack 

RF’ Kase Fointer Offset into the stack segment 

DI Destination Index string data transfers 

Si source Index String data transters 


Cantral Functians: 


Flaags Flag Register Used to record processor status 
information 


Fe Interrupts 

Interrupts serve two functions in the IBM FC: hardware 
interrupts allow a peripheral ta request servicing from the CFU, and 
software interrupts allow the operating system or applications software 
to obtain services from the hardware. Software interrupts are 
generated by a machine instruction. In either case, a software or 
firmware interrupt service routine must be called to process the 
request. The originator of the interrupt does not need to know the 
address of the routine that accomplishes the service, since the IBM FC 
incorporates a powerful feature designed ta minimize limitations in the 
inherent design. 4 level of indirection is designed into the interrupt 
architecture of the microcomputer that facilitates redefining the 
Interrupt service routines without rewiring the hardware ar changing 
firmware. This 16 accomplished through a table of interrupt vectors 
reserved at the first i024 bytes aft system memory. Each of tie £26 
vector locations is a four byte pointer initialized to point to a 
specific fiinction by its location in the table. These functions 
eupcort hardware and saftware interrupts generated by the CFU (far 
fault processing), the hardware (for peripheral service), oar the 
operating system or application program (for higher level services). 
Control 1g passed to an interrupt service routine by utilizing the 
vector at the location assiqned to that function to cail the service 
routine. By reassigning these vectors through the operating system, 
the interrupt service routines narmally found in the microcomputer 
firmware may be substituted By anather portion of ROM, the operating 


‘stem or the application program itself. 


AS an example, the dynamic assignment of interrupt services 
was Utllized to obtain interrupt driven character receive functions in 
the distributed processing network. Two hardware interrupt vectors 
pointing to interrupt service routines for the communications ports are 
assigned to the interrupt vector table at offset #0B for port two 
(logical port COM2), and at offset ¥0C for port one (logical port 
COMT a The distributed processing program developed for this thesis 
reassigns the indicated vectors to point to interrupt service routines 
cantainec in the thesic proaram itself. These vectors are restored to 
their previous values on program termination. (Edwards, 1987, p. 195) 

oe Communications Ports 

TheaikM Faas inherently capable of handling up to seven 
cammunications ports, but typically is fitted with only two at 
Standardized harcqware addresses: logical ports COMI and COM2. These 
are capable of data rates ranging from 110 to 38,400 baud; however the 
microcomputer ROM Basic Input Output System (BIQS) servicing the ports 


only capable of setting speeds up to 9600 baud through service 


rae 
fl 


interrupt #14, This service interrupt was also replaced by the 
application program to set the ports and achieve a finer degree of 
control over their aperation than afforded by the RIQS or the operating 


system. Table 2.2 is correct for an IBM FC (or Zenith 2-248) files 


with two ports @Bdwamdscyei9aa, p. = cies 


Register 


TABLE 2.2 


COMMUNICATIONS FORT ADDRESSES 


COM1/COM? 
Address 


Function 


Transmit Holding 


Receive Buffer 


Interrupt Enable 


Line Status 


Modem Status 


$3FQ/#2F8 


$3FE8/F2FR8 


£3F9/$2F9 


$2FD/#£2FD 


SPE 7 Sere 


Contains the @-bit character to be 
transmitted by the port. This 15 a 
write only register. 


Contains the byte most recently 
received by the port. This is a read 
only register. 


A 44-bit register that enables the 
Serial port to generate interrupts to 
the camputer wher any of the 
following events occurs. 


Bec interrupt when data are 
avallable to be received. 

Bit i: Interrupt when the transmit 
holding register 1s empty. 


Bit 2: Interrupt when the line 
etatus register changes 
state. 

Bit 2: Interrupt when the modem 
status register changes 
state. 


Frovides information about the status 
of data transfer. 
Bit 9: Data ready to be received. 


Bit 1: Qverrun error 

Bis: ipseaty error 

Fit 2: Framing error 

Pit 4: Break detected on the line 

Bit S: Transmit holding register is 
empty 

Bit 5: Transmit shift register is 
emoty 


Bit 7: Always zero 


Contains the status of the modem 


Signals 

Bit O: Delta clear to send 

Hit i: Delta data set ready 

Bit 2: Trailing edge ring indicator 
Bit 3: Delta line signal detect 

Rit 4; Data set ready 


RFit S: Data set ready 
Bit. 6: Fipgeimcaeatei: 
Rit 7: Receive line signal detect 


Linemcent mei) Eby eee E Used to configure the data 
communications parameters. 
Bits 9 - 1: Word length (bits): 


QO ai 

lv=36 

2 = 7 

o = 8 
Bit 2: Steppes: 

O= | 

1=2 
Bit 3: Enable parity 
Bit 4: Select even parity 
Rit S: Mark/space parity select 
Bit 6: Generate BREAK signal 
Bit 7: Divisor latch access 

Madem control Sor C7 ere Allows access to the signals used to 


communicate with a modem 
Bit O: Data terminal ready 


Bit 1: Request to send 
Bex 2: Gi 
Bit 3: QOut2. Must be set ta enable 


UART interrupts 
Bit 4s, Leggpecr 


4. Programmable Interrupt Controller (PIC) 

Another programming requirement involved enabling the IBM FC 
hardware to recognize receive character interrupts generated by the two 
UARTs. All hardware interrupts are prioritized for the CFU by a device 
called the Frogrammasle Interrupt Controller. The Intel 8259 
Frogrammable Interrupt Controller is capable of prioritizing up to 
eight interrupts, identified as IR@O through I[IFO7, with IROO being 
assigned the highest (preemptive) Bisel. The programming 
requirements are to set the appropriate mask Bits in the Interrupt Mask 


Register of the FIC, and ta send an End Of Interrupt command ta the » 


cdevice following completion of the interrupt service routine suppiied 


10) 


by the thesis program. Communications port one 15 assigned interrupt 
vector IR@2 (bit 2), and communications port two has IRQ4 (bit 4). The 
8259 can be instructed to recognize or ignore interrupts froma 
peripheral by clearing or setting the appropriate bit in the Interrupt 
Mask Register located at I/O port #21, and this feature was utilized to 
disable ports when mot in use. End Of Interrupt commands are sent to 
I/O port #20. This relationship is summarized below (Greenberg, 1987, 
pp. 46-30): 
NE ee 


FROGRAMMABLE INTERRUPT CONTROLLER ADDRESSES 


Register . Address Function 

Interrupt Mask $21 Contains the mask for the currently 
enabled interrupts (read/write) 
Bee 2: ST ROS - Com port 2 mask. 


Clear to enable the port 
interrupts 

Bit 4: IRG4 - Com port 1 mask. 
Clear to enable the port 
interrupts 


In Service $20) Write to the same bit as enabled in 
the Interrupt Mask register to clear 
the interrupt. 


IIIT. THE OPERATING SYSTEM 


Microsoft MS-DOS version 3.21 was provided with the microcomputers 
used in this thesis, and provides the traditional functions expected in 
an operating system: high level interface for applications programs, 
file services, memory management, and input/output services (MS-DOS 
Reference Buide, 1986, pp. 2.2 - 2.9). The use of a standard operating 
system was desirable, as it allowed a piece of "trusted" software to be 
utilized far most of the distributed processing functions while 
previcding a familiar environment for the operator. Certain extensions 
ta the operating system were constructed in software, to facilitate the 
executian Gof programs on the microcomputers and to complement the 


extensians in hardware services discussed earlier. These are discussed 


A. BACKGROUND 

fS— Vos interfaces Cirectly with the hardware implementation 
dependent portian af the IEM FC compatible microcomputer, the RQM Basic 
Input Qutput System (BIOS). Recall that this BIOS provides a logical 
interface and some low level services far the underlying hardware, 
including the disk drives, serial communications ports, keyboard and 
video display. The ROM BIOS also accomplishes the initialization of 
the IBM FC on power up. The ROM BIOS services remain available Tamme 
programmer through interrupt service calls. (Norton, 1985, pp. 44 -. 


45) 


[jee OrtlonmeGt ss fo-Disesthat interfaces with the ROM BI0S is 
contained in a file called I10.SYS, located on the media supplied with 
the operating system. This file contains extensions and in some cases 
replacements to the ROM BIOS services supplied with the computer = such 
as device drivers for mouse input devices or specialized video displays 
not available when the design for IBM FC compatibles was standardized. 
On initialization, I0.SYS substitutes the replacement interrupt service 
routines for the existing ROM BIOS services by simply changing the 
interrupt table vectors ta point to the new routines in memory. This 
facility allows the manufacturer to tailor a standard operating system 
to various hardware manufacturer’s micracomputers. A cautian on the 
means ta change these interrupt vectors is noted below. (MS2o05 
Sewewenle Guide, 1786, pp. 2.39 - 2.6) 

fe ere; t tile Iloacecd 1s MSDOS.SYS, which provides hardware 
independent services for the operating system, 1.e., high level 
interface for f1]@ services, memary management, and input/output 
services, This portion includes the handler for a class af service 
requests, called DOS function requests, utilized in the distributed 
processing program ta load and execute programs external to the 
Operating system and input/output redirection tos implement the 
capabilities cited in Chapter Il. (MS-DOS Reference Guide, 1986, 
ceeeeet - 2.) 

The last portion of the operating system loaded is COMMAND.COM, 
which build= an the previous layers ta provide the familiar command 
line interpreter and MS-DOS resident commands such as COFY and DIR. 


isk, Udbss Reference Guide, 1986, pp. eae = Pe 2 


The use of function calls to change the interrupt vector table 
providing ROM BIOS, 10.SYS and MS-DOS interrupt services is strongly 
encouraged by Microsoft to prevent accidental or malicious corruption 
of data structures within the operating system and the vector interrupt 
table. It is also intended to allow backward compatibility for future 
releases of the operating system that may include multitasking. 


(MS-D@S Reference GUIDE 19eStep. Gro) 


BR. CHILD PROCESSES 

The ability of the operating system to spawn a local process and 
regain control after execution 15 an essential element of the 
distributed processing network. MS-DOS Function Request 4BH 15 
Utilized to load another program into memory and begin execution. 
Programe executed from the Command.Com command line prompt are executed 


as child processes of the operating system in exactly the same way. 


a] 
an 
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inction provides for the execution of programs and for the remote 
lagin capability required by the network. several details of the 
MS-DUS operating system capability were of interest in this thesis. 
(MS-DOS Feference Guide, 19846, pp. 3.1 - 3.9) 
ae Program Segment Prefix 

When a child process 1s created, the MS-DQS operating system 
finds the lowest available segment address to use as the ‘start of 
program memory for the spawned process, and builds a 254 byte control 
black called the Frogram Segment Frefix (FSF) at offset zero within 
that segqmen. The executable program immediately follows. While, 


Microsoft does not officially document the use of certain fields within 


14 


the FSF, sufficient information was collected from the MS-DOS Reference 
Guide and other sources to manipulate the environment created for the 
child process ta accomplish the goals of the distributed processing 
program. 
a. Interrupts to be Restored on Program Termination 
The interrupt vector table pointers for three essential 
interrupts are placed in fields of the FSF of the spawned process prior 
to execution. These are restored on program termination to insure that 
the interrupt vector table is not corrupted should the child process 
replace the vectors for its own use and then terminate abnormally. 
These are: The Terminate Handier Address containing the address of the 
operating system routine that accomplishes program termination; the 
Tontrol-C (also known as Control-EBreak) Address containing the address 
of the operating system routine that hancles operator induced program 
termination; and the Fatal Error Handler Address used to process errars 
that result in fatal program halts. (MS-DOS Reference Guide, 17986, pp. 
cee aT) 
b. The Environment Segment Address 
The PSF contains a field that holds the segment address 
f the system environment. This environment is a4 series of ASCII 
strings that may be used by programs to determine permissible 
operations or values. These strings take the form variable = value, 
and are terminated in a zera (0) character. An example is the "PATH =" 
environment variable used to set the search paths used by the command 
processor Command.Com to locate an external command. The process’ 


current environment 15 made available by following this segment pointer 


and searching the strings found at that address until a string with a 
second terminating zero character is found. This facility is used by 
the thesis program to locate a copy of the Command.Com on disk to run 
batch programs (Edwards, 1987, pp. 286 - 288). Each child process 
inherits a copy af the environment pointed to by the seqment address of 
its parent. This means that the child process may manipulate its own 
environment without disturbing that of its parent. It also means that 
the parent may manipulate its own environment prior ta spawning a child 
process in arder ta communicate with the child or to restrict certain 
environmental parameters from the child, although this communications 
means 16 mat reversible. (MS-DOS Reference Guide, 1984, pp. 2.6 - 3.7) 
C. File Handle Table 

Wher the FSF 1s constructed, the operating system places 
a capy of all open file handles in a data structure of the type 
FILEHANDLE = ARRAY (1..207 OF BYTE in the PSP (Greco, 19987 >) poe 
Each wore in the table indexes another data structure internal to the 
Operating system that contains information needed ta locate the file on 
the disk system(s). This inheritance has the effect af passing all the 
open files of the parent to the child. A file handle igs a Unix style 
16 bit word that is used to identify a file or a device known ta the 
operating system, and replaces the use af CF/M compatible File Control 
Rlocks for file references Oy the operating system (Simrin, 1988, 
p. 204), File handles allow the use of pathnames to open or create a 
file. Once opened, the file handle is returned ta the calling program 


a the reference ta the file. The first five files are opened by the 


in 


eS 


operating system and have special meaning: (MS-DOS Reference Guide, 
ao, p. 3.7) 
TABLE 2-1] 


MS-DOS RESERVED FILE HANDLES 


File 

Handle Mnemonic Furpose Function 

() Stain Standard Input Input can be redirected 

1 Seawtt Standard Output Output can be redirected 

2 Seer Standard Error Dutput cannot be redirected 
es StdAux COM1 I/O cannot be redirected 

+ StdFrn Frinter I/O cannot be redirected 


d. Redirection 

Redirection refers to the ability of the input er output 
character stream associated with one ot the reserved files above to be 
rerouted to or from a different file. An example of this function is 
the use of redirection characters an the command line (*, =, 32, or i), 
when pragram autput 15 recirectec ta a file or pipe, as im the command 
ieamementry: FROGRAM + FILE. Wher the operating system opens the 
stancard Errer ¢ile, it if directed ta the same device as the Standard 
Dutput file, the display console (logical device driver name CON), = and 
cannot he redirected on the command line as indicated in the table. 
This limitatian would prevent vital error information from being 
redirected from the slave microcomputer display te the master 
micracomputer display. (MS-DOS Reference Guide, 1986, p. 3.8) 

While such redirection cannot be performed from the 
program command line, MS-DOS provides function calls that overcome this 
limitation. These are MS-DCS function calls 48H, Duplicate a File 


Handle (DUF), and 46H, Force a Duplicate of a Handle (FORCDUF). DUP 


[ ied 
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creates a new file handle that references the same file at the same 
position as an existing fille handle. It does so by referencing the 
same internal data structure for the file in the operating system for 
both files. FORCDUF takes as input two file handles, but forces the 
first file handle to refer toa file referenced by a second handle. 
The file referenced originally by the first handle is closed (Simrin, 
1988, pp. 450 - 452). Toa accomplish redirection of the Standard Error 
character stream and overcome the limitation of the operating system 
cited in III.A.-c above, the parent process may use the following 
proceduime (Greco, 172c/. pesca): 

Onen the file that Standard Error will be redirected to 
for writing. 

Save a pointer to Standard Error using DUF. 

Force the Standard Error handle to point toa the newly 
opened file using FOCRCDUF. This closes Standard Error. 


Close the handle created in (1) since it 1s no longer 


The child pragram may now be spawned, and has no 
knowledge af the redirection. Upon termination of the child, the 
carent reverses the above process: 

Force the Standard Error handle to point back to Standara 
Error by using FORCDUF and the saved pointer. 

This redirection method is used for both Standard Error 
and Standard Output ta interleave the two output streams into the same 
file. A more direct method is to directly manipulate the file handles 


in the File Handle Table of the Frogram Segment Frefix, however, this 


violates the strictures mentioned in the beginning of this chapter and 
could corrupt the data structures contained in the operating system if 
improperly done. The use of documented function calls allows the 


Operating system to protect itself and to provide error handling. 


C. PROGRAM TERMINATION 

Upon termination of the spawned program, the operating system 
accomplishes the following (MS-DOS Reference Guide, 1986, p. 4.241). 
First, the three interrupt vectors described above are restored to the 
interrupt vector table from values stored in the terminated process’ 
FSF. Next, control 15 given to the Terminate Handler address to return 
control to the invoking pracess. Finally, all open files are closed. 
Recall that the calling program retains a copy of all open files in its 
own FSF. The effect of closing all the files of the child is ta flush 
file buffers held internal to the disk operating system and update the 
disk directories (Detenbaugn, 1986, p. 22). The operating system then 


terminates any redirecticn. 


i 


IV. THE PROGRAMMING LANGUAGE 


Implementation of this thesis was originally attempted in a subset 
of the Department of Defense programming language mandated for mission 
critical computer resources, Ada. Ada was chosen to explore the 
language in this environment and to apply the language features that 
localize the major design decisions into individual program modules 
(decomposition), promote information hiding through separate 
compilation, and support data abstraction. Concurrency might have 
allowes the separation of the communications and control requirements 
into separate tacks, But was mat supported in the subset. (MacLennan, 
1587, po. 26) ere. 

The subset of the Ada language chosen for this project was RR 
Saftware Inc. JANUS/Ada. This subset of the approved language had 
several limitations in addition to the lack af concurrent programming 
(task) facilities, But was avallable and could be utilized on the same 
micracamputer for program development and implementation. It had been 
used successfully in a similar environment for local area networking 
(Works, 1986), (Hartman and Yasinsac, 1986), and includes a very 
capatle assembler for constructing machine language packages. It 
turned out that this particular implementation was unsuitable to the 
proposed capabilities of the distributed processing network for the 


reasons cited below. 


in ‘eo 


A. JANUS/Ada 
Me Memory Size Limitations of Compiled Code 

The initial work for this thesis was to construct a command 
line parser to recognize commands in MS-DOS syntax for execution on the 
slave microcomputer. This was first implemented in assembly language 
follawing the program of an established command intercept processor 
(Mefford, 1986, pp. 213 - 334). This program successfully parsed the 
elements of a command line and reported these components, thereby 
demonstrating the potential to execute the command remotely. The code 
files of table 4.1 resulted. Files ending in a "“jrl" suffix are 
compiler relocatable object files and files ending in a "com" suffix 
are the linked result suitable for execution. 

TABLE 4.1 


ASSEMELY LANGUAGE FARSER 


Frogram Name Languaqce File Size (bytes) 
eiacd. COM. | assemb] v foe gp 

Parsemai.jrl Ada package 146 

parsemal.com compiled 4480 


The parser was then recoded as an Ada package ta obtain the 
flexibility of the higher order language and ta develop the assembly 
language to Ada package interfaces. JANUS/Ada allows assembly language 
procedures to call Ada procedures and functions, and to reference Ada 
data structures. The implementation of the parser as an Ada package 
allowed rapid modification to the parser to adjust the command syntax, 
az well as for interface to the other Ada packages to be developed for 


the system. When compiled, however, the following resulted: 


TABLE 4.2 


Ada LANGUAGE FARSER 


Frogram Name Language File Size (bytes) 
[nt eZine assembly 948 

cmdlyne. jrl Ada 12656 

main. jrl Ada 905 

main.com compiled 42425 


The cost of coding in this implementation of JANUS/Ada is 
evident above. The JANUS/Ada compiler emits about a tenfold increase 
in code size to accomplish the same effort as the assembly language 
version. The COM file is also much larger, due to the incorporation of 
library routines from the Jlib86 support package to handle string 
manipulation and other high level language constructs. With a code 
size limitation of 64F bytes, results similar to the above would 
rapidly exhaust the space available in the small memory model as 
packages were added. This model is limited to 64 Ebytes af code and a 
seperate 64 Ebytes of date (JANUS/Ada Fackage User Manuals. 1983, 
p. £ - 4), and is characteristic of COM files running under MS-DOS. 
The options were either to code major portions of the thesis in 
assembly language as had been done by Works, Hartman and Yasinsac, 
linked together by Ada packages aS a malin Program, or to find a way to 
expand the code module. The latter was desirable due to the original 
intent to utilize a higher level language for the distributed 
processing network. Before this could be pursued, however, a more 


seriaus problem sevelaned. 
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aie Failure of the Child Process Call 

As described in Chapter III, MS-DOS commands or programs not 
implemented internally by the operating system are called transient 
commands, and must be run by loading the program into memory from disk 
and executing it as a child pracess. As the next step in the above 
implementation, a call was constructed in an assembly language package 
body to the MS-DOS function 4BH, EXEC program (MS-DOS Reference Guide, 
1986, pp. 4.2237 - 4.239). This was done to overcome a limitation of 
the JANUS/Ada supplied procedure, Frog_Call. The supplied procedure 
recognizes only program names without path specifications, and does not 
allow for a command teil after the program name. The procedure alsa 
terminates bath the child process and its parent if the child process 
terminates abdnormally. This would not allow far a robust distributed 
processing system, capable of recovering from a faulty child program 
and continuing to operate in the network (JANUS/Ada Fackage User 
emer s., IGS, Pp. ia —- 3). 

Wher this approach was implemented, however, all chiid 
processes would execute normally when called from the MS-DOS = functian, 
as expected. The system would lock up upon return of control to the 
parent process, usually with a fatal error message such as INTERNAL 
STACK OVERFLOW. This suggested that something was being corrupted in 
the MS-DOS operating system upon termination of the child program. 

An investigation of a disassembly listing of the compiled 
program revealed that the JANUS/Ada runtime library was writing 
Initialization data into reserved areas in the Frogram Seqment Frefix 


of the parent program. These areas are undocumented by Microsoft in 


its off vere literature, but have been identified by other authors. 
Table 4.3 shows these locations: (Simrin, 1987, p. 211 - 212 
TABLE 4.3 


JANUS/Ada INITIALIZATION AREAS 


Location Contents 

FSP: 0016 FSF of parent process 

PSF:Q01C Standard Frinter file handle (filehandlel4]) 
PSP:OQ001E filehandle(6) 

PSF E0020 filehandle{8] 

PSPs 0@e7 filehandleliod 

FSF: 0024 filehandleli2] 

Por sO00re filehandleli4] 


Since the filehandles are indices to data structures internal 
ta the operating system holding information about specific open files, 
the consequences af these actions Ban that the compiled program 
unintentionally creates open filehandles after the Standard Printer 
handle assigned by MS-DOS, oar overwrite the filehandles for files 
aiready opened by the parent program. Recall that MS-DQS apene the 
first five handies, and the application program opens filehandles after 
that up te the FILES = <number? set in the environment. When the 
JANUS/Ads program overwrites these handles, the indices represented by 
them now point to other patentially unrelated areas of the operating 
system for files referenced by the file handles. These other areas may 
then be corrusted when the operating system attempts to close the child 
precess’ files usine invalid file handles. These data structures are 
common in the oaperating system to both parent and child. This may 
explain why the JSNUS/Ada built in file operations and functions would ” 


mo longer work after a sinele assembly language call ta operating 


system function calls, as observed by Works (Works, 1986, p. 24). 
Works wrote all file handling procedures for his program in assembly 
language to overcome this fault. (Works, 1986, p. 34) 

The effect of corrupted data areas in the operating system i165 
to compromise the internal state of MS-DOS when the child process 
terminates. 

Shs Need for a Replacement Language 

At this point, a decision was made to implement the thesis in 

a languace that would support child processes and provide a larger 


memory model. 


RB. TURBO PASCAL 

While performing the initial work for this thesis, Borland 
Corporation Turbo Fascal versian 3.9 was being examined for the 
possible use of a construct similar to its operating system calls. The 
language utilizes a very general procedure to call MS-DOS functions and 
software interrupts with a data structure standing in far the contents 
af the microprocessor registers discussed in Chapter II. With such a 
procedure constructed for the JANUS/Ada language as 2a supporting 
Package, the large number of assembly language procedures and functions 
that Works, Hartman and Yasinmsac required could be abstracted out to a 
single general purpose procedure, tailored for each instance by the 
register contents. 

When the difficulty encountered with tne failure of child processes 
im JANUS/Ada, a rapid prototyping effort was used in Turbo Fascal to 


chect: the author’s understanding af the requirements for the EXEC call 
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in another language ta detect possible errors in implementation. The 
EXEC function worked satisfactorily in Turbo Fascal, using either the 
MS-DQS call canstruct or the compiler’s built in procedure. Since the 
Ada implementation appeared to be infeasible, the program was 
implemented in Turbo Fascal. It turned out that version 4.9 of that 
language has features that capture the essence of the original 
programming objectives. Some particular features follow: 
iz Information Hiding 
Borland’s fTurba Fascal version 4.90 implements the Unit as 
originally developed for UCSD Pascal (Duntemann, 1987, p. 11). This 
programming canstruct allows modular programming very similar toa Ada, 
however separate compilation cannot be achieved with just the module 
intervace declaration, as it can in Ada. Variables and procedures 
implemented in the UNIT body are not visible by outside modules, as in 
the Ade package. 
fe Support for Child Processes 
Turbo Fascal provides a robust implementation of the MS-DQS 
Function 48H, called EXEC. This is a high level procedure that takes 
Fascal strings for the program path specification and the command taii 
arguments as parameters. The procedure utilizes the furbo Fascal 
Global variable DOSErrar to report operating system error messages for 
pragram handling. 
as Data Abstraction 
Turbo Fascal supports data abstraction in much the same way as 


Ada, but does not implement a Frivate declaration. 


= Unit Initialization 
The Turbo Fascal Unit provides an initialization section for 
Units, which can be used to perform unit configtiration and to save 
state information prior to program execution. This is helpful for 
saving interrupt vector table contents for restoration on program exit. 
ae Unit Exit Procedures 
Turbo Fascal provides an important feature by allowing the 
programmer ta declare an exit procedure that will be run upon program 
terminatian. This pracedure will execute for normal or abnormal 
termination, and can be constructed to provide error handlers. The 
Primary use in this thesi¢ was to insure that interrupt vectors were 
praperly restored on program termination. 
6. Absolute Variables 
Turbo Fascal supports manipulation of hardware memor y 
lecatians by allowing the programmer to specify the actual location in 
memory of 2a data structure. This is accomplished by the ARBSOLUTE 
reserved word in a VAR declaration, and was used to declare a pointer 
to reference the viceo memory far windowing operations (Edwards, 1987, 
a4 Se 
:. File Input and Output 
Turbo Fascal provides the capability to read or write to 
untyped files in addition to Wirth’s Read and Write procedures. This 
allowed the file transfer protocol to treat a file as a stream of 


bytes. 
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8. Port Read/Write 
Turbo Fascal provides Fort and Fortw procedures to read or 
write byte and word sized variables to the IBM FC ports. This 
capability was used in the serial communications port module. 
ce Interrupt Service Routines 
The Turbo Fascal compiler has a special reserved word, 
INTERRUFT, that allows the programmer to define procedures as interrupt 
service routines. The compiler handles all register preservation and 
stack operations across the call. 
10. Exception Handling 
Turbo Fascal does not implement the Ada exceptian handler, 
however, the combinatian of the DOSError variable and the ability toa 
relax 1/0, range and type checking within a local scope allows the 
programmer to place the exception Handling mechanism in the control 
flaw with standard structured programming techniques. AN. kext T 
procedure with a scope identifier wouid have been useful to escape a 
hrGcedure, MOWEVer , the current approach enforces structured 
Programming. 
11. High Level Software Interrupt Procedure 
Turbe Pascal provides a predefined procedure, MSDOS, and a 
data type, registers, that allows a simple and standardized interface 
ta the operating system software interrupt function calls. The 
registers data type stands in for the processor’s Built in registers 
and allows the programmer ta treat the MS-DOS functions in the same 


manner aS a procedure. Noa assembly language programming 15 involved. 
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12. ROM BIOS and Hardware Interrupt Preeeatice 
The above procedure, MSDOS, is a special case of the general 
Turbo Fascai procedure, Intr (Intr, regs), which allows access to any 
hardware or software interrupt available on the IBM-FC compatible 
micrecomputer. No assembly language programming 1s involved. 
13. Support for a Larger Memory Model 
Turbo Pascal compiles programs into EXE files, and greatly 
expands the potential size of a program. Each unit has an independent 
code segment, with a maximum size of 64 Kbytes. A single data segment 
and stack segment is allawec, each with their own 64 Fbyte limitation. 
The remainder of memory, up to 640 Kbytes, is available on the heap. 
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by campiler directive to leave room 


for Spawned pracesses. (Duntemann, 1987, p. 12) 


C. IMPLEMENTATION 

The distributed processing program was implementea in Turbo Fascal 
4.90, as described in the next chapter. This language provided support 
for all proposed capabilities while eliminating the requirement for 


extensive assembly language programming. 


V. THE IMPLEMENTATION 


The distributed processing program in this thesis has its origins 
In an existing terminal program supporting the Xmodem protocol 
(Edwards, 1987, pp. 220 - 275). This “brassboard" program served as 
the foundation for the addition of the command transfer functions that 
were required by the proposed capabilities of the distributed 
processing network, and was expanded to provide finer control over 
multiple serial ports. In addition, command parser and local execution 
modules were added for the Slave microcomputer to execute resident 
programs. The aperator interface and windowing environment was laraely 
retainec intact, and 15 utilized for the man machine interface. 

This approach ellowed the referenced program to be modified in 
discrete steps, anc provided a test enviranment to exercise each 


portion of the implementation listed belaw. 


A. THE HARDWARE CONFIGURATION 

The hardware used ta implement the distributed processing network 
consiste at TEM POs compatible microcomputers. Each Slave 
microcomputer 15 supolied with a hard disk drive of 10 megabytes or 
Greater capacity, 640 Ebytes af memory and one RS-222C port. The 
Master microcomputer 1s configured identically, except it has an 
additional communications port. 


The serial connection between computers are the RS =a 


cammMtunicatian 


ut 


ports operating at 9600 baud for IBM FC/AT compatible 


machines and 4800 baud for IBM FC/AT compatibles. The microcomputers 
at each end of a single link must be configured for the same speed. 
The pin connection for the interconnecting cables is shown at Figure 
6.1. For microcomputers with the nine pin AT style connector, a nine 
pin to RS-232C 25 pin DE-25 cable is recommended, with a NULL modem in 
between. Hardware handshaking is turned back in this’ configuration. 
The program will operate satisfactorily through a modem 1f the baud 
rate is lowered. (Flanders, 1989, p. 252) 
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SERIAL FORT CONNECTIONS 


Computer 1 Computer 2 

Fin Function mun Fin pol poate e Vale 

Signal Groune es yy Signal Ground 
Transmit Data Ces a ae Receive Data 
Receive Data Ss ee = Transmit Data 
Request to Send i. i Request to Send 
Clear ta Sena Cr eoeee Clear to Send 
Carrier Detect ee" S08 Carrier Detect 

Deta Set Ready Sea, .— oO Data Set Ready 

Data Terminal Ready 0) 8 ot) Data Terminal Ready 


B. SOFTWARE CONFIGURATION 
ye The Operating System 
The cperating system is supplied with the microcomputers, and 
is Microsoft MS-DOS, version 3.0 or higher. 
a The Distributed Processing Program 
The distributed processing program was written to accommodate 


the above operating system, and is used on both the Master and Slave 


microcomputers. 


as ZCOPY File Transfer Program 

A high speed, adaptive file transfer program is provided with 
the distributed processing system software that allows file transfers 
to be executed at the maximum speed permitted by the serial 
communications link. The maximum speed is 115 Kbytes/second. The 
pregram runs as a child process under the distributed processing 
system, and includes independent error checking protocols. (Flanders, 
1OSS Oe ere 

4. software Maintenance 
ae Configuration 
Configuration is accomplished by a built in function in 

the program, provided the pregram was initialized as a Master. This 
normally suffices ta set default configuration options, such as port 
settings, for autamatic loading when the program is run. The settings 
are saved ina file. If the file 1s erased, the program initiates its 
default settings anc the operator can then recreate the file. 

aye Software Modification 

Software modification 15 accomplished through built 

in editing, compilation, and rum time environment supplied with Turbo 
Fascal version 4.0. Build and make utilities are supplied with the 


compiler to allow program modification and rebuild. 


C. SYSTEM DESIGN 
The problem af designing a distributed pracessing network was 
cecomposed inte the following effarts: 


tes The command parser for the remote (slave) microcomputer. 


aan 
le 


a The execution of child processes. 


as Redirection of child process output. 
4, File and command transfer via Xmodem. 
a Serial communications. 


ey The man machine interface. 
i The Command Parser 

The command parser decomposes an MS-DQS command directed to 
the Slave microcomputer for execution into its component disk drive, 
path, command or executable file name, and command arguments. The 
latter is commonly called the command tail. Since compatibility with 
the current MS5-DQS cammand syntax was desired, these commands take the 
suena: 

Cdrive: J£\ifdirectory\]..fdirectory\] command [command tail] 
Once parsec, the type of command is determined so that the Slave 
computer can execute it properly. As an experiment, the Unix commands 
CAT and LS are mapped into their MS-DOS equivalents ta demonstrate a 
Slave with limited Bilingual capabilities. 

a The Execution of Child Processes 

Once the command 1¢ parsed, the parser must properly determine 
if the command cited is a cammand normally executed internally by 
MS-DOS, an executable CQM or EXE file, or refers to a directory 
operation. Internal MS-DOS commands implemented within the distributed 
processing program are detected by pattern matching, the remainder are 
identified By conducting an iterative search across the specified 
directory (or the current directory if none is cited in the remote 


command) for an executable file of the appropriate extension, utilizing 
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the Turbo Pascal built in “femetions Find First smgerine exc een 
found, the type of file 1s passed by the parser to the appropriate 
execution routine. The executable files are those with COM, EXE or BAT 
extensions. MS-DOS does not require the operator to enter the 
extension, and will execute the first file encountered with the command 
name and an executable extension in the following order: COM, EXE and 
BAT. The parser copies this trait. Implementation of the different 
command types 15 summarized below. 
as Internal Commands 

Internal commands are those that are executed within the 
MS-DOS command processor, and are available from the familiar A> 
prampt. These include the directory manipulation commands ChDir, Copy, 
Del, Dir, MkDir, Ren, RmDir and Aner drive login; ta which were added a 
prampt command to obtain the current directory on the Slave 
micracomputer for display at the remote, and Equip, which provides the 
Slave configuration (disk drives, memory, etc) accessible to the ROM 
BIOS interrupt #11 (MS-DOS Version 2.21 User’s Guide). ChDitr) hile 
and RmDir alang with Froampt are provided within the distributed 
Ppracessing program. Error messages are supplied from the MS-DOS 
operating system, hence, they are identical to those encountered in 
local operations. Rather than duplicate the capabilities of the MS-DOS 
command orocessar for the remaining commands, MS-DOS is utilized to 
assist in this effort. A secondary copy of the MS-DOS command 
processor is located by inspecting the "COMSFEC=<path/name+" string 
from the local environment area, and is spawned with the appropriate- 


command tall for the desired command. This allows the remote command 
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to execute as if it were entered from ne Slave microcomputer ‘s 
keyboard, and provides a familiar response. A utility program in_ the 
public domain was utilized as a programming template to detect the 
proper course of action before spawning a child process, depending = on 
the type of command received. (Mefford, 1988, pp. 221 - 336) 
b. External (Executable) Commands 
External commands are those that require the distributed 
processing program to load, execute and collect output for display. 
These are the familiar COM, EXE, and BAT files found in directory 
listings. These commands are executed by calling the Turbo Fascal EXEC 
procedure directly from the distributed processing program, with the 
explicit path specification required by the procedure supplied by the 
parser in its search far the executable file. The command tail i1¢ 
pravided from the parsing cGperaticn. Batch files are handled by 
Spawning a secondary copy of the command processor with the batch file 
name as the command tail, as described for selected internal commands. 
Oeettora, 197868, 9. 227) 
oe Redirection 
Redirection control 18 contained ina separate module that 
contains most of the Turbo Fascal EXEC calles. Frior to Spawning an 
executable file, a variable is checked to determine if the pragram 
output 15 to be redirected to a ‘file managed by the distributed 
Processing program. This file is used to send the program output back 
to the Master microcomputer over the communications channel by the 
Xmodem protocol after execution of the program cited in the remote 


command. The variable 1s managed by the module initilization routines 


and 1s normally set for redirection, otherwise the program output would 
appear on the Slave microcomputer screen. If redirection is desired, 
the distributed processing program redirects its own output to the 
redirection file, utilizing the MS-DOS Function Calls 43H (DUPlicate 
handle) and 46H (FORCDUPlicate handle) as described in Chapter III. 
Since the child process inherits all open files from the parent (in 
this case the distributed processing program), it proceeds through the 
execution ablivicus to the redirected output. Error reports are also 


available in the redirected output file, which overcomes a limitation 


of redirection invoked from the cammand line with the «=, =, 3% and | 
eymbals. The appropriate files are then available to forward ta the 


Master ml Creacenpiuter  setbneecGee 1 7S7, e0eu2cc 
4, File and Command Traneewr via Xmodem 

Since the Xmodem protocal is utilized far bath command and 
data transfer, the highly modularized approach found in (Frantz, 1985, 
pp. 66 - 89) 15 implemented to handle synchronization, packet transfer, 
and file transfer under flaw control in a hierarchical manner. The 
modular approach does require a large number of variables that are 
Glebal ain scope ta the different building blocks, however, the 
concentration of these variables and their associated functian and 
procedure implementations in a Turbo Fascal Unit as private variables 
preserved information hiding. An additional file transfer program, 
copy, 15 available as = an sacieston aptian an the Master display and 
allows the use of an adaptive protocol that transfers files at the 


maximum speed of the communications link, regardless of settings. 
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Dis Serial Communications 
S11 communications between the Master and Slave microcomputers 
are handled by the microcomputers standard serial communications ports. 
Communications is at 9600 baud for communications between IBM FC/AT 
compatibles, and at 4800 for IBM PC compatibles. The interrupt service 
routines handle receive character streams for hardware ports COMI = and 
COM2, ang are adapted from source listings posted on the 
info-pascal@vim.brl.mil network (Kimura, 1988) and (de Boer, 1988). 
Receive characters are queued in a receive buffer for each port. 
Transmit characters are sent under program control in a polling loop. 
é. Man Machine Interface 


The program uses the same operator interface for both the 


aes 


aster and Slave configurations. Initialization is accomplished from a 
configuration file in the local directory or from default constants if 
the file is absent. When initialized, the program presents a terminal 
screen far the primery port with cammunications inhibited. The 
operator is then able to select options by special key cambinations 
(Alt-keys) to revise the configuration file, initialize communications 
ports, enable and ditabie receive interrupts ona port basis, and 
select tne current port for use with file transfers and command 
transfers to the connected slave. File, command transfers, and the 
output of the remote Slave computer is available on a monitor’ window. 
Status windows are shown for critical parameters. 

The Slave microcomputer is operated in an infinite loop to 


receive and process commands. Local aperation may be restored (at the 


cost of disabling server functions) by pressing a local key which 


aborts the Slave program. 


D. DESIGN CONSIDERATIONS 
1. Assembly Language 
Assembly language is used in only two locations in this 
thesis, for the purposes of code optimization. The first is to move 
data between the screen buffer and a storage location to open and close 
windows on the screen as used in the windowing module. The second is 
to enable and disable CFU interrupts for the interrupt service routines 
contained in the data communications module. Bath instances utilize 
built in assembly language facilities of the compiler. The remainder 
of the program is coded in the Turbo Fascal dialect. 
ae ROM BIOS Software Interrupts 
Calls are made to the ROM BIOS of the IBM PC compatible 
computers to perform communications port speed initialization 
(interrupt 14), and toa obtain the machine disk drive, memory, and 
communications port configuration for display (#11). 
St Memory Management 
Memory management 15 handled by the Turbo Fascal compiler 
im accordance with the #M compiler directive. This was adjusted from 
that offered by the Turbo version 72.0 to version 4.0 conversion 
utility, which allocated all memeary toa the distributed processing 


opragram. By reducing the size of the heap, child processes and M5-DO05 


un 


hells can be run from the program as a parent. The primary consumer 


of heap memory is for dynamic allocation of memory to Save screen 


displays for windowing. Current program memory requirements are less 
than 72 Kbytes, exclusive of the MS-DOS operating system and any 
Terminate and Stay Resident programs run before the program. The use 
of Terminate and Stay Resident programs is not recommended due to 
unpredictable side effects. 
4. Synchronization 

Synchronization 1S normally maintained by starting the Slave 
micracomputer in the command receive mode and then executing ine an 
endless laop. The Master computer operator must initialize the 
communications ports (if required) and connect to the appropriate port 
to access the desired Slave. Commands are normally passed to the Slave 
and responses displayed an the Master, however, if the Master computer 
2s redirected to another task while the Slave is pracessing the 
request, the Slave will wait an the Master with its response. This is 
a tunctionality oat the Xmadem protocol, which 1s receiver driven. A 
resynchronization command 1s available ta the Master operator ta force 
the Slave back into the command receive mode if required. The pracess 
16 currently manual, and depends on operator familiarity with the 
likely Slave responses. Adequate, although not necessarily automated, 
statue responses are available ta the Master operator to determine the 
Slave state. 

ae Modular Programming 

The windowing support unit, the Xmodem file and command 
teaioter @roetecol], and the RS=-222 serial communications port and 
interrupt service routines are contained in separate units. In the 


case of the Xmodem unit and the data communications unit, the original 


terminal program interface 1s retained although the implementation is 
considerably different. This was intentionally done to create the 
potential to provide a different transfer protocol or to usea 
different network By redesigning the implementation section of the 
unit, and ta demonstrate information hiding. The windowing unit was 
Simply converted to a Turbo Pascal unit (Edwards, 1987, pp. 50 - 98), 
along with a general support unit (Edwards, 1987, pp. 66 - 73). 
6. Preservation of Interrupt Vectors on Program Termination 

The manipulation of the vectors in the IBM-FC interrupt vector 
table provides a powerful means to enhance the capabilities of the 
machine, whether to incorporate new hardware or to adapt an existing 
capability in saftware. The potential is equally high to lose control 
of the system if the interrupt vectors are not restored when the 
program ends. This must be handled for normal termination as well as 


unplanned, or abnormal termination. 


E. SYSTEM EXECUTION 
Le Initialization 
The program contains all functions for operation as either a 
Master or Slave microcomputer on the distributed processing network. 
The operating selection 15 made when the program is run, either by 
Distrib Master 
for operation as a master, ar by 
Distrib 
or 


Distrib Server 
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for operation as a “Slave. The program than searches for its 
configuration file and uses that to set the default communications port 
settings, screen colors, etc. If not found, the program utilizes built 
in defaults. 
Ze Slave Operation 

Slave operation is automatic, with the program initializing 
its communications port (default 1s normally COM1), and entering the 
command processing mode in an infinite loop. This loop may be reset by 
the remote Master if the Slave is expecting to return a sequence of 
responses fram a campleted command, and the Master operator decides to 
abandon the command after execution. In this case, the Slave 1s reset 
over the communications port ta the beginning of the command receive 
loop tG prepare for the next command. fhe program 15 aborted and 
controi is returned to the operating system if any key on the lave 
keyboard if depressec. No warning 18 sent to the Master, since the 
Master may be communicating with another Slave and receive buffers are 
purged fo begin = new communications sequence as recommended in the 
Amodem protocol. The Master operator can check for a "live" Slave by 
Watching for the received NAF characters, displayed each five seconds 
over the receive channel, or enter receive mode to display a program 
response from the Slave. 

3 Master Operation 

Master oaperatians are menu driven. Upon initialization, the 
Master displays a status bar showing the current communications port 
selected at the bottom of the screen and queues the operator to denress 


the HOME bey for a list of commands available. The program oatherwise 
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displays a blank terminal screen although the communications ports are 
disabled for receive on startup. When the operator depresses the HOME 
key, a windaw appears that offers the following command selections with 
a menu bar that can be positioned to select the desired command. The 
operator is alsa reminded that the listed commands may be selected from 
the terminal screen by depressing the Alt - <keys combination. The 
commands are: 


Alt-A Change drive & path 
Alt-BR Send a Break signal 
Alt-C Update Config File 
Alt-D Dialing Directory 
Alt-E Local echo toggle 
Alt-F Change DC params 
Alt-i Show disk directary 
Alt-H Hane up phane 

Alit-L DOS Shell 

Alt-M Activate Master 
Alt-F Fort Operations 

eto) Oiney 

Alt-F XMODEM Get a file 
Alt-S Activate Server 
PUP , 

Alt-|  .5GDEMN Fup eae ihe 
Alt-k (ESC) Exit emuraven 


A more complete discussion of the different commands is found in 
Appendix A, the Qperator’s Manual. The foaliowing is a summary of 
capabilities, as seen from the Master microcomputer. 

a. Terminal Operations 
The opening screen of the program is adequate to perform 
teletype terminal communications over the currently selected 
communications port, once properly initialized. The initializamiiea 


commands are found in the Activate master subscreens. 


b. Port Initialization 
The menu selections available allow the operator to 
override the default communications ports settings and to select a 
communications part far communications with the remote Slave. An ESC 
key returns the operator to the terminal screen. 
€% Remote Login to Slave 
Most operations are accomplished at the Slave by using 
the remote login function. The command is packetized at the Master and 
sent toa the Slave as a 120 Byte Xmodem packet. Upon successful receipt 
at the Slave (signalled by an ACK character received at the Master), 
the Master then assumes the Xmodem receive function to await the 
response fram the Slave. The Slave then sends a packet back with a 
prompt cantaining its current directary and drive. This prompt is 
Structured to loak like the operating system prompt. Once received by 
the Master, the Slave reverts to commana receive mode to await the next 
command. The Master displays a window to prompt the operator for the 
next commana to send to the Slave, or to quit the command mode. if a 
commanc 16 sent, 14 16 packetized and transmitted as before. 
d. Remote Program Execution 
Frograms are run on the Siave microcomputer in response 
to commands received from the Master. Once the command is parsed, the 
program handles some commands internally and runs a program as a child 
process to accomplish those cammands it does not recognize internally. 
For spawned proaqrams, the program output is captured in a file and then 


sent back to the Master. The Master waits for the response after 


sending the command. Responses may be a series of strings or files, 
and are displayed on the Master remote login window. 
e. Flow Control 
Flow control (selection of receiver and sender) is in 
accordance with the Xmodem protocol, with one exception. An EOT (End 
of Transmission character is specified in that protocol to signal a 
complete transmission. In order to accomplish multiple string or file 
transmission from the Slave to the Master to forward the output of a 
spawned program, the Master interprets each received EOT character as 
an end of transaction (string or file) as in the original protocol, but 
does not end its receive operations until a CAN character is received 
from the Slave to signal the enc or the command and response sequence. 
tr Remote Reset 
Related to flow control is the ability for the Master 
microcomputer to reset the flow direction if the Master and Slave 
microcomputers lose synchronization. This may happen between the 
command transfer to the Slave and the response from that microcomputer, 
and is usually exhibited by both microcomputers attempting to send or 
receive at the same time. The Master operator may break the deadlock 
by sending a series af CAN characters to the Slave to force it back 
into the command mode. 
Q. File Transfer 
7O send a file, the operator selects the ZCOFY option to 
the remote microcomputer and the system prompts for a filename. F 
complete path may be specified. Qnce selected, the program invokes a™ 


copy of the ZCOFY orogram at the Slave and places it in ZCOFY Server 


Ad 


mode. The Slave then waits for the handshaking protocal from the ZCOFY 
program at the Master (also spawned), and establishes a link over the 
serial port at the maximum reliable data rate. Once the transfer is 
complete, bath copies of ZCOPY terminate and control is restored to the 
distributed processing program at the established data rates. The 


Slave then reports the ZCOFY program output to the Master. 


F. THE MODULES 
The following program modules are contained in the distributed 
processing program. 
IL Distrib 
Distrib is the main program for both the Master and Slave 
computers. 
an DataCom 
Unit DataCom pravides all procedures and functions needed to 
Initialize the computer serial cammunications ports, enable and disable 
receive interrupts, provide buffered reception of characters, clear the 
receive buffers), send or receive bytes through the ports, send a 
BREAR signal over the RKS-232 port, and nondestructively read the 
receive buffer(s). It supports Unit Xmodem and the terminal portion of 
Precrio. The currently selected communications port is contained in 
public variable Current_Com. 
ae Director 
Unit Director is a set of functions and procedures that allow 


the output MS DOS file directories to a windowed environment. Masking 


Options and a selector for normal or abbreviated (similar to the MS-DOS 
/w switch) displays are allowed. 
4. ErrorCod 
ErrerCod is a array of string constants mapped by the DOS 
Error Code, Error Class, Recommended Error Action and Error Locus 
indices found in (Microsoft, 1986, pp. 3-1 -— 3.11, 4.254 — 4.2335) 7 ee 
unit is used by the units Parser, Spawn and the program Distrib to 
report errors. A procedure is also provided to retrieve extended error 
code information available in MS-DOS versions 3.0 and abave by DOS 
TURGEON Gaile cine 
ae General 
The General Unit 15 a collection of general purpose routines 
that support the Wndow Unit and other modules. (Edwards, 1987, pp. 
i eal? eT Ae 
or MiscPack 
lindt Miscpack 12 a collection oat data types and utility 
routines supporting these other units: Xmodm, Parser, Spawn, Redirect, 
and the main program Distrib. The strong typing features of Turbo 
Fascal require that instances of data types in different units that 
must he equated be declared in one place to be compatible at compile 
time. (Swan, 196865, pp. 14 - 23) 
re Parser 
Unit Farser contains a central procedure, Farser_Main, which 


attempts to parse and execute an MS-DOS style command on the local 


machine. The remaining procedures anc functions support this function. ” 
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g. Redirect 


Unit Redirect 15 a set of functions and procedures that allow 
the output of programs spawned under the Slave computer‘’s copy of the 
main program Distrib to be redirected to files. Once the program ends, 
the Slave computer can then forward the output normally displayed on 
the screen to the Master computer for display. 


a. Spawn 


This Unit detects commands that should be processed internally 
by the Distrib program, and executes commands internally or By spawning 
a child srocess. Command output and error responses are returnec to 
the caller either as strings suitable for conversion to Xmodm packets, 
or by reference tao files cantaining the text. This unit alsa contains 
the recirection switch as a public variable that dictates whether 
program output will be redirected to s file or displayed locally on the 
screen. This switch 1s normally set to recirect to file. 

10. Support 

The Support Unit contains most of the constant declarations 
for tne program, along with the initialization procedure some general 
Purpose procedures a= found in the original terminal orogram. 


Seeedieos, 1707, pp. 241 - 272) 


11. Wndow 
The Wridow Unit provides all window creation, memory 
allocation, display, menu bar processing, closure and memory 


deallocation functions for the program Distrib. The unit was changed 


from am include file toa unit, but not otherwise changed from that 


Originally developed by the author in (Edwards, 1987, pp. 50-98). The 
purpose descriptions are from the author. 
i2. Xmodm 
This Unit handles all requests for Xmodem protocol packet and 


file transmission and reception. 
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VI. CONCLUSIONS 


The program developed and implemented for this thesis successfully 
demonstrated the capability for unmodified IBM FPC/AT compatible 
microcomputers to operate in a distributed processing network. A small 
star network consisting of one master microcomputer and two slave 
microcomputers was installed and operated in a iaboratory environment. 

The network displayed the capability of transferring program and 
Gata files between the master microcomputer and either of the siave 
microcomputers, and the capability of the master to command the 
execution of MS-DOS cammancs and executable programs an the slaves. 
The network further demonstrated that the autput of the commands or 
programs could be displayed oan the master computer. A simple error 
recavery methodology was also demonstrated. 

Implementation af this program was not feasible in RR Software, 
Inc. JANUS/Ada, due to unexpected problems in the implementation of 
that subset af the Ada language and that compiler’s design. TJnis is 
not as fault of the Ada programming language. These design deficiencies 
in «6©the)§«6JANUS/Ada were specific to the implementation in an MS-DOS or 
CP/M environment; and caused fatal operating system faults when a child 
process was executed from the command parser, as implemented in 
JANUS/Ada. The amount of cade emitted by the compiler also appeared to 
be reletively large. It should be noted that the compiler available 


for this thesis was relatively old, version 1.5.2, and as a subset of 


Ag 


the Ada language was ‘not validated. It may be that the current, 
Validated version has corrected these deficiencies. 

Borland Corporation. Turbo Pascal proved to be a viable programming 
environment for this thesis, and provided many of the features desired 
from the Ada programming language. These include information hiding 
through modular program and the unit structure, data abstraction, 
strong typing, and high level procedures for file input and output, 
access to the microcomputer input/output ports, and a standardized 
interface to the system software interrupts. Assembly language 
programming was not required, and was used in two isolated locations to 


implement replacement interrupt service routines and enhance block data 


MOVEMent. 


APPENDIX A 


OPERATOR'S MANUAL 


A. STARTUP 


The distributed processing program is designed to operate on an IBM 
FC/AT compatible microcomputer such as the Zenith 2-248, Minimum 
configuration 1s a 10 Mbyte or larger hard drive, 640 Ebytes of memory, 
an EGA or VGA monitor, and at least one floppy for program loading. 
The following files should be resident on the hard disk in the desired 
@ueem@eaiy: DIGIRIBVEAE, DISTRIE.CFG, DISLRIE.FHN. A subdirectory 
should exist off the root directory of the hard disk named SCRATCH for 
the maintenance of redirected output files generated by the Slave 
orogram. The file transfer program ZCOFY.COM should be available in 
the DISTRIE.EXE directory. 

The microcomputers must be connected by a null modem and 
appropriate cables before the network will operate. Turn on the Slave 
microcomputer (s) first. 


B. Slave Operation 


Slave operation 1s automatic. For convenience, if the 
microcomputer 15 to be used largely asa Slave in the distributed 
processing metwork, an AUTOEXEC.BAT file may be placed on the boot 
drive root oairectory that specifies the complete drive = and path 
specification for the program, with the following program name: 


[drivel{[pathIDISTRIE Server 


On stertup, the program will load, initialize and digplay a 
tetus screen with a monitor window for remote commands and the Slave‘s 
responses. Operation of the Slave may be monitored from the display 
Screen. The program i¢ aborted and control is returned to the 
operating system if any key on the Slave keyboard is depressed. No 
warning 15 sent toa the Master. 
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C. Master Operation 


Master operations are menu driven. For convenience, if the 
microcomputer is to be used largely asa Slave in the distributed 
processing network, an AUTOEXEC. BAT file may be placed on the boot 
drive root directory that specifies the complete drive and path 
specification for the program, with the following program name: 


CdrivelfpathIDISTRIB Master 


On startup, the program will load, initialize and display a 
Status bar at the bottom. This bar shows the current communications 
port selected at the bottom of the screen and queues the operatar to 
depress the HOME key for a list of commands available. The program 
atherwise displays a blank terminal screen although the communications 
ports are disabled for receive on startup. When the operator depresses 
the HOME key, a window appears that offers the following command 
selections with a menu bar that can be positioned to select the desired 
command. The operator 1s also reminded that the listed commands may be 
selected from the terminal screen by depressing the Alt - <key> 
combination. The commands are: 


Alt-A Change drive ® path 
Alt-B Send a Break signal 
Alt-C Update Config File 
Alt-D Dialing Directory 
Alt-E Local echo toggle 
Alt-F Change DC params 
Alt-G Show disk directory 
Alt-H Hang up phone 

nl te bss amet i 

Alt-M Activate Master 
Alt-F Fort Operations 
FaDn, 

Alt-R xXMODEM Get a file 
Alt-S Activate Server 
FgUp , 

Alt =) RU LEM PPUt 7 tere 
Alt-% ‘ESE? @exit emulavrer 


These commands are discussed individually in the following 
sections. What follows is a general sequence of commands or selections 


to accomplish processing on the Slave microcomputer. 
be Terminal Operations 


The opening screen of the program is adequate to perform 
teletype terminal communications over the currently selected 
communications port, once properly initialized. The initialization 
commands are fourd in the Activate Master subscreens. 


Zs Remote Login 


The Slave microcomputer may be operated as though the Master 
operator 15 entering commands from its keyboard and observing the 
results on its display. These functions are remcted to the Master 
screen. 


To log in toa the Slave, select Activate Master from the main 
menu and then select options from the secondary menu to establish the 
correct baud rate, parity, for the port connected to the desired Slave 
and to connect the part. The default settings are usually satisfactory 
once the network is established. The Master cannot reset the Slave’s 
port parameters remotely. Once the port 1s connected, select Remote 
Login from the Activate Master menu. After a moment for the exchange 
of command and response, the Slave’s local directory will be displayed. 
From this point, any MS-DOS command or program entered at the Master 
may be rum an the Slave and the output will be displayed at the Master. 


as Initialize Port, Connect Port, Disconnect Port 


These commands are used to set the communications part 
settings, and to establish a link to the attached Slave microcomputer. 
Both the Slave and Master microcomputers must be set up at the same 
serial port parameters ta communicate. To change to a different Slave 
(port), either first disconnect the current port and connect the 
desired port, or simply connect the new port. 


4. Equipment Status 


This command will return the Slave configuration on the Master 
screen. fhe number of disk drives, communications ports, and availabie 
memory 15 displayed. 


as ZCOPY 


These commands ailow file transfers from or to the connected 
Slave. Upon activation, the program will prompt for the file name to 
he sent ar received. If the copy will result in another file of the 
same name being overwritten, confirmation will be asked. The Master 
will display the Slave’s ZCOFY program output after the transfer is 
complete. This is useful if an error occurs. 


6. Reset Remote 
Thig command is useful it the Slave was operating 
Satisfactorily and now appears unresponsive. It aborts any protocol 
transfer in progress and restores flow control the command receive 
mode. 


Ue Exit (ESC) 


This exits the Activate Master environment. All 
communications port selections remain intact. 


D. COMMAND SUMMARY 
The remaining commands accessed from the main screen are: 
is Alt-A Change drive & path 


This command changes the current disk drive and path for file 
transters or directory operations. It also determines the starting 
directory for a DOS shell. 


Ze Alt-B Send a Break signal 


This command sends an RS-2352C break signal over the currently 
selected communications port. 


3.  Alt-C Update Config File 


This command allows the operator to display the current 
proaram configuration parameters as found in the file DISTRIB.CFG, in 
the current directory. An error indication 1S given if the file 1s not 
found. The operator can select any of the displayed parameters to 
change, and & range of options is displayed. Default settings for the 
communications ports, the modem dialing prefix, and screen color 
settings are pravided. 


4. Alt-D Dialing Directory 
This command allows the aperator to dial a telephone number 
from a list of stored numbers, or a number entered manually from the 
keyboard. This command assumes a Hayes compatible modem. 
oF Alt-E Local echo toggle 
Intended for terminal operations, this command sets a half 
duplex toggle ta display transmitted as well as received commands if 
the remate terminal does not echo receivec characters. 
6. Alt-F Change DC params 
This command allows the operator to set the baud rate, word 
length, parity and stop bits for the currently selected communications 
port, ta override the corfiguration settings. 


re Alt-G Show disk directory 


This command displays the local disk directory, in MS-DOS 
standard ar /w formats. 


8. Alt-H Hang up phone 


This command tells the modem to disconnect the telephone line. 


9. Alt-L DOS Shell 


This command executes a secondary copy of the MS-DOS command 
processor to allow the operator to utilize the operating system without 
terminating the distributing processing program. 


10. AIt-M Activate Master 


This command opens aie second set of commands to command the 
Slave processor. f[fhese include: 


Initialize port 

Connect to current port 
Disconnect current port 
ZCOFY file to remote 
ZCOFY file from remote 
Get machine status 
Login to remate machine 
Reset remate server 


a. Initialize Port 


This command allows the operator to select the current 
port parameters from a menu of options, ranging from 110 baud to 328,400 
baud. 


b. Connect to Current Port 


This command allows the operator to assign a port 
Peteeent ly COM or COM2) as the port for current operations. 


Cz Disconnect Current Port 


This command disables the receive interrupts for the 
currently selected part. 


d. ZCOPY file to remote 


This command requests the name of the file to be sent to 
the Slave, and then invokes a program called ZCOFY to send the file at 
the max 1 Mum data rate supported by the communications port. 
Precautions must be taken if a modem is used, since the modem will 
dictate the maximum data rate. 


e. ZCOPY file from remote 


This cammand requests the name of the file to be received 
from the Slave, and then invokes a program called ZCOFY to receive the 
file at the maximum data rate supported by the communicatians port. 
Frecautions must be taken if a modem is used, since the modem will 
dictate the maximum date rate. 


cn 
cn 


f. Get machine status 


This command allows the Master operator to query the 
configuration of the connected Slave microcomputer, and displays the 
number of floppy disk drives, communications ports, and available 
memory. 


g- Login to remote machine 


This command returns a prompt from the remote machine on 
a full screen window at the Master. The operator is then able to send 
commands toa the Slave in much the same manner as from the local 
operating system prompt. Responses are displayed on the Master screen. 


h. Reset remote server 


Thic command is usec to resynchronize the Master and 
Slave camputers. It does so by sending a series of CAN characters down 
the serial communications link to abort any operations in progress and 
return the Slave ta the command mode. 


ii. PqDn, Alt-R XMODEM Get a file 


This command allows the Master to perform a file transfer from 
an Xmodem compatible remote system. The filename 15 requested from the 
operator to assign ta the received file. 


12. Alt-S Activate Server 


This command allows the operator to invoke Slave operations on 

e& lacal microcomputer, and 1s useful for systems initialization and 

setup. Depressing a key while in this mode aborts the Slave operation, 
but returns the program ta the terminal made. 


+ }- 
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i3. PgUp, Alt-T XMODEM Put a file 
This command allows the operator to perform a file transfer to 
an Xmodem campatibie remote system. The filename of the file to be 
sent 12 requested from the aperator. 


14. Alt-X (ESC) Exit emulator 


This command halts the program, restores all communications 
port interrupt vectors, and returns control to the operating system. 


E. TERMINATION 
lz Slave 


Slave operation 1s terminated by depressing a key. Contral 
returns to the operating system. 


Le Master 


The Master is terminatec by returning to the main menu 
(terminal screen) and depressing Alt-xX. Control returns to the 
operating system. 


APPENDIX B 


INSTALLATION/PROGRAMMING AIDS 


This appendix provides information on the construction of null 
modem cables tor use between the Master and Slave microcomputers, and 
provides a listing of all procedures and functions found in the 
distributed processing program. These procedures and functions are 
sorted alphanumerically within by program or unit. 


A. SERIAL PORT CONNECTIONS 


The serial connection between computers are the RS-2ee 
communications ports operating at 9600 baud for IBM FC/AT compatible 
machines and 4800 baud for IBM FC/AT compatibles. The difference is 
due to some spurious characters noted on the slower machine's display 
during data transfers. The microcomputers at each end of a single link 
must be configured for the same speed. The pin connection for the 
interconnecting cables 1s shown at Figure H.i. For microcomputers with 
the nine pin AT style connector, a nine pin to RS-222C 25 pin DE-25 
cable 15 recommended, with a NULL modem in between. Hardware 
handshaking if turned back in this configuration. The program will 
operate satisfactorily through a modem if the Saud rate 1s lowered. 
(Flanders, (9e7 5 Gis) 


FIGURE B.1 

SERIAL FORT CONNECTIONS 
Computer i Computer 2 
eg Picci air, Fin Fin Fin Function 
Signal Ground f= 7 Signal Ground 
Transmit Data 2) 2=S==- > oi Receive Data 
Receive Data fe & Transmit Data 
Request to Send ee ara Request to Send 
Clear to Send a | ie, ae Clear to Send 
Carrier Detect a ee Carrier Detect 
Data Set Ready 6 32s. =o Data Set Ready 
Data Terminal Ready a ee Data Terminal Ready 


B. INSTALLATION 


Installation may be rapidly accomplished by connecting a null modem 
cable ta COMi for both the Master and Slave microcomputers. Install a 
copy of Zeopy.com in the same directory as the Distrib.exe program. 
The file Distrib .cfg and Distrib.phin should not be resident in this 


directary, or the program may initialize the CQM1 ports to incompatible 
settings. Execute the command "Distrib Master" at the MS-DQS prompt of 
both machines. This should bring both programs up in the terminal 
mode. Depress the Alt-M (Activate Master) key combination to access 
the communications port settings and initialize COMi for 9600 baud, 8 
data bits, 1 stop bit and no parity (4800 baud for non - AT ITEM FC 
compatibles). Connect to the COMi port and press ESC to exit the 
secondary menu. The Master and Slave should be able to communicate as 
Glass teletypes to each other. If desired, change the default settings 
for both microcomputers to the desired port parameters by selecting 
Alt-C (Update Config File). This, when saved, will generate the 
configuration file for the microcomputer. A similar procedure with 
Alt-D will allow the creation of the telephone number file if desired. 
Create an AUTOEXEC.BAT file for the microcomputer(s) designated as 
Slave and include the command "Distrib Server" to enter the Slave 
program on power up. A similar file with “Distrib Master" will = allow 
the Master microcomputer ta assume that role on power up. 


C. UNIT DEPENDENCIES 


The follewing chart (Table B.1) illustrates the the dependencies of 
the variaus units in the program, as a guide ta the visibility of the 
data structures, procedures and functions in the interface sectian of 
each program module. CRT anc DOS are units supplied with the compiler. 
All pragrams and units depend on the System unit. 
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Dialing_Directory 
Dial_Fhone 

Dirs 

Dos_ Shell 

Get Dial 

Get Equip 

Handle Alt_Key 
Hangup 
Operator_input 
Oper ator_message 
Frocess command 
Reset _ remote 
Remote Command 
Rlogin 

Rx File 

lvonrve 

Save File 

Wry 


Datacom 
Connected 
DataComm_Error 
Disable 

Disatble Interrupts 
Enable 

Enable Interrupts 
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Hey Byte 

Hex Word 
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Director 
GetAattribut 
ShawDir 
StandBy 
ViewDir 
WriteEntry 


ErrorCod 
Extended Error Code 


Gener al 
Beep 

Cursor Size 
Exchange 
FillWord 
Get Time 
Max 

Min 


Miscpack 
Bumpstrlip 


Parser 

argc 

ar ayy 

Init parse 
Farce 

FarseName 
Farser_ main 
Resalve_command 


Redirect 
Clase File Handle 
Duplicate Handle 
Init Redirect Unit 
Redirect Alli Qutput 
Redirect Handle 
Redirect Std Input 
Redirect Stqverra: 
Redirect Std Output 
Restore Std Error 
Restare Std Input 
Restore Std Output 
Restore All Qutput 
Restore CRT Assignments 
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Match Command 
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Support 

Build Status Line 
Check Auxport 
Check_Keyboard 
Find Environment 
GetEquip 
Initialize 

Moet y_Entry 
NoFile 

OF 

Save_File 

Yes 


Wndow 

Build Borders 
Close Window 
Get_Dummy_Screen 
Get Real_Screen 
Get Window 

Init _Window_Info 
Move _ Window 

Write Status 
Open_Window 
Process Window_Menu 
Restore Window 
Save_Window 
setBackground 
SetColar 

Soecial Frocessing 


Xmodm 

Pte String 
Command Xfer 
Get_Buffer 

bet response 
ReadAux 
Receive Record 
Respond _by_tile 
Send_CAN; 

Send _EQT 

Send String 
String to _btt 
sync Receive 
Send_Record 
Sync_Send 
Transfer File 
Update Status 
WriteAux 
xXmodem_Xtfer 


APPENDIX C 
XMODEM PROTOCOL 
The following 15 an overview of the Xmodem protocol, as described 
by the author. (Trimble, 1989). 
A. MODEM PROTOCOL OVERVIEW 178 lines, 7.5K 
1/1/82 by Ward Christensen. I will maintain a master copy of this. 
Flease pass on changes or suggestions via CHBS/Chicago at (312) 


S45-B086, or by voice at (312) 849-6779. 


NOTE: this does not include things which I am not familiar with, 
such as the CRC option implemented by John Mahr. 


last Rev: (none) 

At the request of Rick Mallinak on behalf of the guys at Standard 
O1l with IBM F.C.s, as well as several previous requests, I finally 
decided to put my modem protocol into writing. It had been previously 


formally published anly in the AMRAD newsletter. 
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Ie Definitions 


feah + QO1LH 
“eat O4H 
fack > OSH 
amak > 13H 
{can 18H 


ie Transmission Medium Level Protocol 
synchronous, 8 data bits, no parity, one stop bit. 


The protocel imposes no restrictions on the contents of the 


date being transmitted. No control characters are looked for in the’ 
126-byte data messages. Absolutely any kind of data may be sent —- 
Dat) Seo li, meer The protacol has not formally been adopted to a 


7-bit environment for the transmission of ASCII-only (or unpacked-hex) 
data , although it could be simply by having both ends agree to AND the 
protocol -dependent data with 7F hex before validating it. 
specifically am referring to the checksum, and the block numbers and 
their ones-complement. 


These wishing to maintain compatibility of the CP/M file 
structure, i.e. to allow modemming ASCII files to or from CF/M systems 
should follow this data format: 


ASCII tabs used (09H); tabs set every &. 

Lines terminated by CR/LF (ODH OAH) 

End-of-file indicated by “Z, JAH. (one or more) 

Data is variable length, i.e. should be considered a 
continuous stream of data bytes, broken into 128-byte chunks purely 
for the purpose of transmission. 

A CF/M "peculiarity": If the data ends exactly ana 
128-byte boundary, i.@. CR in 127, and LF in 128, a Subsequent sector 
containing the “Z EQF character(s) 15 optional, but is preferred. Some 
utilities or programs still do not handle EOF without “Zs. 

The last block sent 16 no different from others, i.e. 
there is no "short block". 


2: Message Block Level Protocol 
Each block of the transfer looks like: 
<SOHs<blk #ece255-blk #e4--128 data bytes-—F<cksum- 


Pamwriech: 


<SQH = Ol hex 

ab1lk #2 binary number, starts at O1 increments by 
1, anc wraps OFFH to OOK (not to 01) 

<fugu-blk #2 = blk # after going thru 8080 "CMA" instr, 
i.e. each bit complemented in the 8-bit block number. 

Formally, this is the "ones complement". 

2cksum? = the sum of the data bytes only. Toss any 


€ Atma 


4. File Level Protocol 


a: Common to Both Sender and Receiver 


Ali errors are retried 10 times. For versions running 
with an operator (i.e. NOT with XMODEM), a message is typed after 10 
errors asking the operator whether to "retry or quit". some versians 


of the protocol use «cans, ASCII “X, to cancel transmission. This was 
never adopted as a standard, as having a single "abort" character makes 
the transmission susceptible to false termination due to an <ack> “nak> 
or <s5s0n2- being corrupted into a «can? and canceling transmission. 


6m 


The protocol may be considered "receiver driven", that 
is, the sender need not automatically re-transmit, although it does in 
the current implementations. 


b. Receive Program Considerations 


The receiver has a 1i0-second timeout. It sends a <nak?> 
every time 1t times out. The receiver's first timeout, which sends a 
«mak>, signals the transmitter to start. Optionally, the receiver 
cauld send a “nak> immediately, in case the sender was ready. This 
would save the initial 10 second timeout. However, the receiver MUST 
cantinue to timeout every 10 seconds in case the sender wasn’t ready. 


Once into a receiving a block, the receiver goes into a 


one-second timeout far each character and the checksum. If the 
receiver wishes to ¢tnaks a block for any reason (invalid header, 
timeout receiving data), it must wait for the line to clear. See 
"programming tips" for ideas synchronizing: If a valid block 


number 16 receivec, 1t will be: 


(i) The expected one, in which case everything is 


fine; or 
(2) a repeat of the previously received block. This 
should be considered OK, and only indicates that the receivers “ack? 
got glitched, and the sender re-transmitted; 


(2) any other block number indicates a fatal loss af 
synchranization, such as the rare case of the sender getting a 
line-glitch that looked like an «ack>. Abort the transmission, sending 
else elite ae 


as Sending Program Considerations 


While waiting for transmission to begin, the sender has 
only a single very long timeout, say one minute. In the current 
protocol, the sender has a 10 second timeout before retrying. I 
suggest NOT doiriq this, and letting the protocol be completely 
receiver-driven. This will be compatible with existing programs. 


When the sender has no more data, it sends an <eat-e, and 
awaits an «ack>, resending the <eot? if it doesn’t get ane. Again, the 
protocol cauld be receiver-driven, with the sender only having the 
high-level i-minute timeout to abort. 


rele Data Flow Example Including Error Recovery 
Here i= a sample of the data flow, sending a 3-block message, 


which handles the two most common iine hits - a garbaged block, and an- 
jack? reply getting garbaged. “xx? represents the checksum byte. 
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FIGURE C.1 
DATA FLOW EXAMPLE 
SENDER Bmee i VER 


comes cee ee ee ee ee ee ee ee es ce ee ee es es es ee ee ee ee ee es ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ae oe 


times out after 10 seconds, 


= “amak ? 
Pooh sOleme —data- «“xx+ ----> 
oe ack? 
<soh? O2 FD -data- xx ar (data gets line hit) 
6 Ss= anak? 
<sohs> O29FD -data- xx ae 
———= fack» 
“<sohy O38 FC -data- xx =) 

(ack gets garbaged) <‘“--- fack? 
ae. seem —Gata. x ae “ack? 
“eot » etd 

Se aack + 


5 Programming Tips 


The character-receive subroutine shauld be called with a 
parameter specifying the number of seconds to wait. The 
receiver shauld first call it with a time of 19, then «nak? and 
try again, 19 times. 


After receiving the «soah-, the receiver should call the 
character receive subroutine with a 1l-second timeout, for the 
remainder of the message and the «cksum:. Since they are sent 
as a continuous stream, timing out of this implies a serious 
lite glitch that causec, say, 127 characters to be seen instead 


of i386. 


When the receiver wishes to ¢nak>, 1t should call a "PURGE" 
subroutine, te wait for the line to clear. Recali the sender 
tasses any characters in its UART buffer immediately upon 
completing sending a Black, to ensure no glitches were mis- 
interpreted, 


The most cammon technique is for "PURGE" to call the 
character receive subroutine, specifying a i-second timeaut, 
and looping back to FURGE until a timeout occurs. The <nake 15 
then sent, ensuring the other end will see it. 


You may wish ta add code recommended by Jonh Mahr to your 
haracter receive routine - to set an error flag if the UART 
snows framing error, or overrun. This will help catch a few 
more glitches - the most common of which 156 a hit in the high 
bits of the byte in two consecutive bytes. The <cksum*= comes 


Mm 
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out OF since counting in i-byte produces the same result of 
adding 80H + BOH as with adding OOH + OOH. 
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APPENDIX D 


MAINTENANCE MANUAL FOR DISTRIB PROGRAM 


A. PROGRAM DISTRIB 


i Configuration Information 
a. Language - Turbo Pascal Version 4.0 
b. Compiler Version —- 4.0 
Ge Target Hardware — IBM PC/AT or close compatible 
d. Operating System — Microsoft MS-DOS (Version 3.x) 
e. Program Description 
Distrib is the main program for both the Master and 
Slave computers operating in the distributed processing network. The 
main program loop initializes the window unit, saves the current 
directory and the current screen image for restoration on program 
rermination, and then calls Initialize in the Support Unit to establish 
the communications port parameters, screen colors, dialing directory, 
and other default parameters. The program then examines the command 
tail following the program name when it was called from the operation 
system anc takes one of the following actions: 


(1) Command tail if NItL ar "Server". If nothing 1s 
specifiec after the program name, or the word "Server" is found as the 
first command line parameter, the program assumes it is to operate as a 
remate Slave or Server and enters a processing loop to wait for a 
command packet from 1tS communications port. A local screen display 15 
avallebie showing a program versian banner and a monitor window showing 
commands received and respanse= generated. Local keyboard input after 
this point will abort the program, reverting the computer ta local use. 


(2) Command tail is "Master". If the word "Master" is 
found as the first command iine parameter, the program enters the 
terminal mode through the default communications port and awaits 
operatar action at the locai keyboard. If a remote Slave computer is 
connected, NAK symbols will be displayed periodically as the remote 
computer awaits a command. A status line is displayed across the 25 
line af the screen and HELF is offered to the local operator if the 
HOME key is depressed. HELF displays a list of available commands to 
initiate file transfers or run remote programs. 


Ze Subroutines Contained 


a. Dial Phone 
(1) Type: Frocedure 
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(2) Furpose: To dial a selected telephone number on a 
Hayes compatible modem connected to the modem port. 

(3) Description of Farameters: I is the entry number 
to be dialed that was selected by the user from the Dialing_Directory 
procedure that follows. Demon_Dial, if TRUE, repeat dials the entry 
until the modem reports a connection. This procedure changes the COMM 
port selection stored in the DataCom Unit variable Current_Com to the 
modem port, and leaves it there. 

(4) Subroutines Called: 

Flush_Buffer (dumps the receive buffer) 

DataCom. Connected 

DataCom.RS5_Initialize 

DataCom.RS_ Cleanup 

DataCom.RS232_ In 

DataComm. RS232 Avail 

DataCom.Send String 

CRT. Ciigeee 

Cr le Glaser 

CRT. Delay 

CRT. GoOTOXY 

Wndow. Keep 

Wndow.Get_Window 

Widow. Open Window 

Wndow.Close Window 

(3) Frocess Description 

Given the dialing directory entry to dial, the 
procedure initializes the madem port according toa information stored in 
the dialing entry data structure Support.Phone_ Stuff; and sends a 
string ta the modem to dial the number. If repeat dialing 15 selected, 
& window 1S Gisplayed showing the pragress of the call. 


b. Get Dial 
(1) Type: Frocedure 
(2) Purpose: This procedure allows the operator ta 
select a4 telephone number to be dialed. 
(=) Description of Farameters: 
Input: Support.Fhone Menu (the list of available 
nunbers) 
Wife ut : The function returns the order of the 
n’th phone list entry 
(4) Subroutines Called: 
Window. Open_Window 
Wndaw.Fracess Window 
(3) Process Description 
The procedure calls Open_Window with parameter 
Fhane_Menu from the Support Unit to display a menu of telephone numbers 
containec ain the file DISTRIEB.PHN, and allows the operator to select 
one with a menu bar. 


e. Dialing _Directory 
(1) Type: Frocedure 
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(2) Furpose: To allow the user ta dial, modify, add 
or delete any telephone number’ entry in the data structure 
Support.FPhone_Stuff. 

(3) Description of Farameters: none. 

(4) Subroutines Called: 

Get_Dial (displays the list of telephone numbers 
that are available) 

CRT.GoToOXY 

CRT ~GisEOL 

Gant. Clr oC 

Support.Modify_Entry 

Support. OF 

System.FreemMem 

System. GetMem 

System.Move 

System. SizeOf 

Widow. Get_Window 

Wndow. Open_Window 

Wndow. Close Window 

(So) Frocess Description 

This pracedure first displays a window allowing 
the operator to dial, modify, add or delete any number in the data 
Structure Support.Fhone_Stuff. If dial 1s selected, the mumber is 
dialed and the program returns to terminal mode. If modify or delete 
is s@lected, a list of available names attached to known telephone 
mnumbers 15 displayed for selection. If a number is ta be added, a 
Blank parameter table is displayed for data entry. On completion, the 
operator is affered the opportunity to save the added number to the 
file DISTRIB.PHN, through a call to Modify_Entry. ESC returns to the 
terminal mode. 


d. Dirs 
(i) Type: Frocedure 
(2) Purpose: To allow the user to display the loacai 
Gitee directory. 
(2) Description of Parameters: none. 
(4) Subroutines Called: 
CRT.GoToXxyY 
GRt.C) raw 
Ga oer SEr 
DUS amine First 
DOS.Find_Next 
System.ChDir 
System.GetDir 
System. Readkey 
Widow. Gpen_Window 
Wndow.Close_ Window 
(2) Froecess Description 
This Pprecedure prompts the user far a path 
specification and directory mask similar to that used by the MS-DOS DIR 
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command and then displays the directory for that specification a screen 
at a time. Capabilities similar to DIR *.% and DIR *.#/w are provided. 


e. Change_DC_Parameters 
(1) Type: Pracedure 
(2) Furpose: To allow the user to select speed, 
parity, word length and stop bit parameters for the COM port specified 
by DataCom.Current_Com. 
(3) Description of Farameters: DataCom.Current_Com 
(4) Subroutines Called: 
CAT. Ulnseg 
DataCom.RS_Initialize 
DataCom. RS Cleanup 
Wndow.Open_Window 
Wndow.Close Window 
Wndow.Process Window 
(2) Frocess Description 
This procedure offers a selection of parameter 
combinations for the currently selected COM port and allows the port toa 
be configured accordingly. A menu bar selection 1s used. 


He Hangup 
(7) Type: Frocedure 
(2) Purpose: To hang up the modem. 
(3) Description of Farameters: DataCom.Current_Com 
(4) Subroutines Called: 
CRT.Delay 
DataCom.RS222_ In 
DataCom.RS222 Avail 
DataCom.RS Initialize 
DataCam. RS Cleanup 
DataCom.Send String 
(=) Fracess Description 
This procedure places the modem in command mode 
and sends a disconnect command string ta the Hayes compatible madem 
connected ta the current communicatians port. 


g. Operator_Input 

(1) ‘lyeer FPupeeren 

(2) Furpose: To abtain a string input from the 
operatar. 

(3) Description of Farameters: Title 1S a& Shima 
typed in the Wndow Unit that is to be displayed on the window; Frompat 
is a string written in the window area specifying what the operator 1s 
to enter. 

(4) Subroutines Called: 

CA. bas me 
Wndow. Open_Windaw 
Wndow.Close_ Window 
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(3S) Process Description 
This function opens a titled window and waits for 
the operator ta type a string. The string 15 returned as the function 
result. 


h. Operator _Message 

(1) Type: Function 

(2) Furpose: To inform the operator with aioe string 
message, usually of some error condition that is to be temporarily 
displayed. 

(3) Description of Farameters: Title is a string 
typed in the Wndow Unit that is to be displayed on the window; Message 
is the string message to be provided to the operator. Note that this 
function depends on the calling program to close the window. 

(4) Subroutines Called: 

GAt.. Cleser 
Widaw. Qpen_Window 
(3) Frocess Description 
Thie function opens a titled window and places the 
message string in the window. 


in Process Command 

Ce Tepe: eePtinct ron 

(2) Furpose: To operate the computer as a Slave, 
pracess all requests to initialize COM ports, transfer files between 
Master and Slave computers, remotely aperate a Slave computer, or reset 
the connection between computers. 

(3) Description of Parameters: The function returns 
to the calling program an enumerated state variable defined in the Unit 
Xmodm cepending an the successful dispatch aot a command ta a Slave 
camputer and the receipt af the response, or an indication that the 
lecal operator has aborted the operation by pressing a (key. The 
keypressed indication is typically all that is of interest, since the 
functian normally called repeatedly. 

(4) Subroutines Called: 

Pei ele oer 

Elfed CORE een sys 

System. Readkey 

Widow. Open_Window 

Window. Close Window 

Wndow. Get _Window 

Widow.Frocess Window 

Xmodm. Buf to _ String 

Xmodm. Command Xfer 

kmodm. Send _CAN 

Xmedm. String _to_buf 

Xmodm.Respond by_ftile 

fo) Jeeeess DESEri ptr on 

The initial state of the communications link is 
fram Master to Slave (this process). This function opens ae small 
status window indicating whether it 1s awaiting a remote command, 


parsing a received command for local execution, or completing the 
command execution. It does so in this sequence: First, a loop is 
entered that repeatedly calls the function Xmodm.Command_Xfer. Qn 
successful receipt (status = Rx_done), the command is converted from an 
Xmodem packet into a string and passed to Farser.Parser_main for 
execution. The communications link also switches direction, with the 
Master expected the Slave to initiate Xmodem packet transmissions. 
This procedure returns any error indication from the locally executed 
procedure or spawned program as a string in the variable Error_Msg, 
along with a typed variable Errtype indicating whether the response is 
a file (for program results or output) or a simple string variable or 
nothing at all (NULL string). Errtype is used in ae following CASE 
construct to send the file specified by a complete drive and path 
specification in Error_Msg back to the Master computer, or to forward 
Error Msg as a4 packetized string utilizing the Transmit option of 
Xmodm.Command xXfer. Similarly, this procedure returns any output from 
the locally executed procedure or spawned program as a string in the 
Variable Response, along with a typed variable Festype indicating 
whether the response 15 a file (for program results or output) or a 
Simple string veriable or nothing at all (NULL string). Restype 15s 
used im a following CASE construct to send the file specified by a 
complete drive and path specification in Response back to the Master 
computer, or ta forward Response as a packetized string utilizing the 
Transmit opticn af Xmodm.Command_Xfer. The Master computer expects a 
response of thie type over the communications line when it detects the 
successful command transfer, Note that the normal exit condition far 
the Command _%fer loops throughout this function is Rx_Done or Tx_Done. 
The Master comouter will continue to display responses from the Slave 
until a CAN character 1s received. At this point, the function returns 


with the last valid status of the Command_Xfer function, and the 
camminications iink again switches to the LGeginning state, with the 
Slave waiting an transmissions from the Master. Error indications 


other than that in Error_Msg short circuit the program execution 
through this fumctian, send a CAN character to the Master, return the 
communications link to 1ts initial state, and leave the function with 
an error status. 


ie Reset Remote 
(15 Types Frocedture 
(7) Furpose: This subprocedure of the Comms Function 
allows the operator toa recover control of the Slave computer if 
synchroanizatian 15 lost over the communications link. 
(2) Description of Farameters: None. 
(4) Subroutines Called: 
Uodate. Status (local to Comms_Functian) 
nmodm., Send CAN 
=) Frocess Description 
This procedure sends four CAN characters out on 
the communications link to the Slave. The Frocess Command function 
(described above) 16 sensitive to the receipt of CAN characters and 
Will exit the function early with an error status. The calling program 
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simply loops into the Frocess_Command function again and awaits a 
commana. 


k. Remote_Command 

(1) Type: Function 

(2) Furpose: This sSubfunction of Comms_Function 
function accomplishes one cycle of a Master to Slave command and 
response over the communications port. 

(2) Description of Farameters: The function 1s 
entered with a string comtaining the command to be executed. The 
function returns to the calling program an enumerated state variable 
defined in the Unit Xmodm depending on the successful dispatch and 
execution of a command by the Slave computer, or an indication that a 
local operator has aborted the sequence by depressing a key. The 
keypressed indication is typically all that 15 of interest, since the 
function normally called repeatedly. 

(4) Subroutines Callea: 

System. Readkey 

Xmodm. Command _Xfer 

Xmodm.String_to_buf 
(2) Frocess Description 

This function 1s currently called by Get_Equip to 
perform a single command cycle; or Rlogin to repeatedly cycle and allow 
the operator to remotely operate the Slave computer from the Master 
keyboard in a manner similar to the DOS prompt. It does so in this 
Sequence: First, a loop is entered that repeatedly calls the function 
Amadm.Command Xfer ta pass the command string to the Slave. On 
Successtul transmission (status = i  COne? , function 
Xnodem.Get Response displays the packetized response from the Slave on 
the Master monitor window. The Master continues to display responses 
from the Slave until the Slave sends a CAN character, indicating 
completion of the all responses, ar the Master operator depresses a key 
to break the cycle. At this point, the function returns with a boolean 
indication af the success of the transfer 
(TRUE = success, FALSE for any keypress during the cycle). 


ee Rlogin 
(l) Type: Frocedure 
(2) Purpose: This subprocedure of the Comms Function 


function cycles the Remote_Command function and allows operator input 
of commands to the Slave until aborted by the operator. 
(3) Description of Farameters: None. 
(4) Subroutines Called: 
Update. Status (local to Rlogin) 
Si ia oy bal a 
Distrib.Remote_Command 
Distrib.Reset Remote 
Distrib.Qperator_Input 
Wndow. Qpen_ Window 
Wndow. Close Window 
Wnidow.Get_ Window 


(3) Frocess Description 

At the beginning, this procedure opens a full 
screen window to display all responses from the Slave in much the same 
way a local operator would view them. The procedure then calls 
Kemote_Command initially with a command string requesting a prompt from 
the remote system so that the operator can determine the current 
directory of the Slave. If that succeeds, the Master operator is 
prompted for a command to send to the Slave by Operator_Input. Remote 
processing may be terminated by entering an exclamation point ("!") 
whereupon the operator 15 asked to confirm the termination. Remote 
processing also terminates if Rlogin returns a FALSE result. On exit, 
the procedure closes the monitor window and exits. 


Mm. Rx File 
(1) Type: Procedure 
(2) Furpose: This subprocedure of the Comms_Function 
function initiates a file transfer from the Slave to the Master by 
using an adaptive file transfer program, Zcopy. 
(2) Description of Farameters: None. 
(4) Subroutines Called: 
Update.Status (local to Rlogin) 
Gilanl lum Sier 
Distrib. Remote_Command 
Distrib.Operator_Input 
System.Exec 
Wndow. Qpen_Window 
Wndow.Close Window 
Window. Get_Window 
Xmodm. String _to_buf 
(3S) Frocess Description 
This procedure opens a full screen window to 
display the operation of the Zcopy file transfer program, and prampts 
the operator for the name of the file to receive. This file is assumed 
tc be in the current directory of the Slave unless a full path 16 
specified. Once the file name 1s obtained, a command string 15 
ssembleq ta send ta the Slave to initiate the transfer. The procedure 
Ss terminated if the command transfer 15 interfered with by a keypress 
at the Master. Once the Slave acknowledges receipt of the command, the 
Master initiates the Zcopy program locally, using a different format to 
operate as a server under the temporary control of the Slave. The 
operator 15 provided prompting information from the Zcopy program ina 
full screen window if a ‘file must be overwritten or Zcopy 
synchronization 1i¢ not achieved. Once completed or terminated, the 
mnrocedure displays the Zcopy display output from the Slave computer for 
error diagnostics (if needed), closes all opened windows and exits. 
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ne Tx File 
(i) Type: Frocedure ; 
(2) Furpose: This subprocedure of the Comms_Function 


function initiates a file transfer from the Master ta the Slave by 
using «en adaptive file transfer program, écapy. 
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(3) Description of Farameters: None. 
(4) Subroutines Called: 
Update.Status (local to Rlogin) 
Ce e1r Ser 
Distrib.Remote_ Command 
Distrib.Operator_ Input 
System. Exec 
Window. Open_Window 
Wndow. Close_Window 
Wndow. Get _ Window 
Xmodm. String_to_buf 
(3) Frocess Description 
This procedure opens a full screen window to 
display the operation of the Zcopy file transfer program, and prompts 
the operator for the name of the file to transmit. This file is 
assumed to be in the current directory of the Master unless a full path 
is specified. Once the file name 1s obtained, a command string is 
assembled ta send to the Slave toa initiate the transfer. The procedure 
is terminated if the command transfer is interfered with by a keypress 
at the Master. Once the Slave acknowledges receipt of the command, the 
Master initiates the dZcopy program locally, operating as a file 
transfer master with the Slave operating as a Slave. The operator 15 
providec prompting information from the Zcopy program ina full screen 
wincow if a file must Be averwritten or Zcopy synchronization is not 
achieved. Once completed or terminated, the procedure displays the 
Zcopy display output from the Slave computer for error diagnostics (if 
needed), clases all capened windows and exits. 


De Get Equip 
(1) Type: Frocedure 
(2) Purpose: This subprocedure of the Comms Function 
function displays the communications port and floppy disk configuration 
of the Siave computer. 
(3) Description of Farameters: None. 
(4) Subroutines Called: 
Update.Status (local to Rlagin) 
Gi. Chaser 
Distrib.Remote Command 
Distrib.Operator_Input 
Wndow. Open Window 
Wndow.Close Window 
(S) Process Description 
Utilizing the Remote Command function, this 
procedure cispatches the command string “Equip" to the Slave, which is 
processed in the Slave program to obtain BIOS information via BIOS call 
ll. Qn exit, the procedure closes the remote monitor window and 
exits. 


p. Comms _ Function 
(1 eee SSE uRGtl on 


(2) Purpose: To process operator requests to 
initialize COM ports, transfer files between Master and Slave 
computers, remotely operate a Slave computer, or reset the connection 
between computers. 

(3) Description of Parameters: The function returns 
to the calling program an enumerated state variable defined in the Unit 
Amodm depending on the successful dispatch of a command to a Slave 
computer and the receipt of the response, or an indication that the 
local operator has aborted the operation by pressing a key. The 
keypressed indication normally allows the operator to make another 
selection or to leave this function. 

(4) Subroutines Called: 

Update.Status (for local display of the system 
state) 

Chi. Olrocr 

CRT. GoTOXY 

Distrib. Remote_Command 

Distrib. Rlogin 

Distrib.Rx File 

Distrib. Tx_File 

Distrib.Get_Equip 

system, Readkey 

Widow, Open_Window 

Wndow.Close Window 

Widow. Get Window 

Wnidow.Frocess Window 

Xmodm.Buf to_String 

Amodm. Command _Xfer 

xmodm. Send CAN 

Xmnodm.String_to_buf 

xmoadm. Respond _by_file 

(=) Fracess Description 

This function opens a window showing the 
parameters for the current communications port, and a second window toa 
allavw the operator to select one of the following functions: 
Initialize a port, change to a different port and enable the receive 
interrupts, disable a receive interrupts for a port, senc a file to the 
Slave computer, receive a file from the Slave, obtain the port and disk 
configuration of the Slave, operate the Slave remotely, reset the 
current Xmodem link, and leave the function. It does so by calling one 
of the following procedures or functions local to Comms_Function by a 
CASE selection: Distrib.Remote_ Command, Distrib.Rlogin, 
Distriob.Rx_FPele, Distrib. 7x_File, Dieetribeaer Equa. 


q. DOS _ Shell 
(1) Type: Froacedure 
(2) Furpose: This procedure spawns a copy of the 
MS-DOS command processor to allow the operator of the Master computer — 
ta perform DOS functions while retaining the control program. Control 
1s returned to the Master program on exiting the secondary processor. 
(2) Description of Farameters: None. 


Vis: 


(4) Subroutines Called: 
SAT eelreGk 
Chr. Olescr 
CRT.Delay 
Distrib.Find_Environment 
Support.OkK 
System.ChDir 
System.GetDir 
System. Exec 
Widow. Open_Window 
Wndow.Clase Window 


(3) Frocess Description 

The procedure first locates a copy of the DOS 
command processor by finding the "COMSFPEC=" path specification in the 
current environment. This is established on startup of the computer 
and is normally passed down to the application program for its use. 
Once this complete file specification i5s obtained, the operator 16 
informed that the DOS shell will be activated and a full screen window 
1s opened to save the current screen. When the operator terminates the 
secondary command pracessor by entering "EXIT" at the prompt, the 
procedure restores the original disk drive and directory, notes any DQS 
errors returned, and returns to the terminal screen. If the COMSFEC 
enviranment parameter cannot be found, the procedure informs the 
operator, obtains acknowledgment, and exits. 


ae Handle ALT Key 
(1) Type: Frocedure 
(J) Furpose: This procedure dispatches the program ta 
ae particular function selected by the operator as an ALT-key. A heip 
display is also provided as offered on the status line. 
(=) Description of Farameters: Eis the high order 
byte read from the keyboard and is used as a CASE selector 
(4) Subroutines Called: 
CRT Serre 08 
ete. . _.1 ete 
CRT. Delay 
DataCaom.RS_ Break 
Distrib.Change_DC Farameters 
Distrib.Comms Function 
Distrib.Dialing_Directory 
Distrib.Dirs 
Distrib.DOQS Shell 
Distrib. Hangup 
Distrib,.Handle ALT Fey (the procedure calls itself 
after processing the help menu) 
Support. Build Status Line 
support. Modify_Entry 
Suppor. OF 
System. ChDir 
Widow, RFeep 
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Widow.Cloase Window 

Wndow. Open_Window 
Wndow.Frocess Window _Menu 
xmodm. Transfer File 


(3) Frocess Description 

The functions offered by this procedure are: 

Alt-A: Change Drive and Fath 

Alt-B: Send a Break signal out of the current COM 
port 

Alt-C: Clear the screen 

Alt-D: Dial a telephone number and connect by 
modem 

Alt-E: Toggle the local Echo for half  GiUimie: 
communications 

SVU oa cae Change the default communications 
parameters 

Alt-G: Show the current directory 

Alt-H: Hang up the modem 

Alt-L: Open the DOS Shell 

Alt-M: Activate the Master 

Alt-F: Activate the Master 

Alt-R, FaDn: Receive a file via Xmodem 

Alt S: Activate the Server 

Alt-T, PaUp: Transmit a file via Xmadem 

Alt-X: Terminate the program 

Home: Display a help screen of these commands anc 
Allow selection hy menu bar 


S. TTY 
fl) Type: Frocedure 
(2) Furpose: This procedure pravides a teletype 


emulation augmented by ANSI contral functions. 
(2) Description of Farameters: ANSI = TRUE indicates 
the procedure acts as an ANSI terminal emulator. 
(4) Subroutines Called: 
WriteLF (process a line feed) 
DOS Interrupt #10 (Video Display) 
CRE, Cligseis 
CRT.Delay 
Window. Open_Window 
Widow. Close Window 
Suppemeaub. 
System. ChDir 
System. GetDir 
System.Exec 
) Pracess Descriptian 
The procedure filters characters generated by the 
keyboard and arriving from the communications port in the terminal mode 
tc emulate an ANSI terminal. ALT-key combinations are intercepted from 
the keyboard and processed by Handle_ALT Key. 
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APPENDIX E 


MAINTENANCE MANUAL FOR UNIT DATACOM 


A. UNIT DATACOM 


1. Configuration Information 

a. Language ~- Turbo Pascal Version 4.0 

b. Compiler Version — 4.0 

Gs Target Hardware - IBM PC/AT or close compatible 

d. Operating System —- Microsoft MS-DOS (Version 3.x) 

e. Program Description 

Frovides all oroecedures and functions needed to 

initialize the computer serial communications ports, enable and disable 
receive interrupts, provide buffered reception af characters, clear the 
receive buffer(s), send or receive bytes through the ports, send a 
BREAK signal over the RS-222 port, and nondestructively read the 
receive buffer(s). Supports Unit Xmodem and the terminal portion of 
Distrib, The currently selected communications port is contained in 
public variable Current_Com. 


2. Subroutines Contained 


a. Disable Interrupts 
(1) Type: Frocedure 
(2) Furpose: To permit a Fascal procedure to disable 
sy=tem interrupts. 
(3) Description of Farameters: 
Input: None. 
Qutput: System interrupts are disabled. 
(4) Subroutines Called: 
Inline assembly. 
(3) Frocess Description 
The assembly instruction to mask off inmterruotse at 
the CFU is inserted into the code stream at compile time. 


b. Enable Interrupts 
(1) Type: Frocedure 
(2) Furpoase: To permit a Fascal procedure to enable 
system interrupts. 
(3) Description of Parameters: 
Input: None. 
Output: System interrupts are enabled. 
(4) Subroutines Called: 
Inline assembly. 
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(3) Process Description 
The assembly instruction to unmask interrupts at 
the CFU is inserted into the code stream at compile time. 


eA RS232_ ISR1 
(1) Type: Frocedure 
(2) Furpose: The anterrupt Service routine for 
communications port one. 
(2) Description of Farameters: 
Input: An interrupt vector call initiated from 
communications port one. 
Output: The received character 15 placed i1n a 
Bult Per 
(4) Subroutines Called: 
DataCom. DisableInterrupts 
DataCom.EnableInterrupts 
System.Port 
(2) Frocess Description 
System interrupts are temporarily turned off to 
service this interrupt. The UART Line Status Register for 
communications port one is read to record any error indications, then 
the Receive Buffer Register 15 read ta place the character in the 
receive buffer. The buffer tail pointer 16 advanced and an End of 
Interrupt command is sent to the Frogrammable Interrupt Controller to 
Signal the end of the interrupt service call. 


d. RS232_ISR2 
(1?) tyne Frocedire 
(2) Furpase: The anterrupt service routine for 
communications port two. 
(3) Description of Parameters: 
Input: An interrupt vector call initiated from 
communications port two. 
Output: The received character is placed in a 
buffer. 
(4) Subroutines Called: 
DataCom. DisableInterrupts 
DataCom.EnableInterrupts 
System. Fort 
(3) Frocess Description 
system interrupts are temporarily turned off to 
service this interrupt. Tie UART Line Status Register 16is 
communications port two 15 read to record any error indications, then 
the Receive Buffer Register is.read to place the character in the 
receive buffer. The buffer tail pointer is advanced and an End of 
Interrupt command is sent to the Programmable Interrupt Controller to 
signal the end of the interrupt service call. 


e. RS_Break 
(ld) Type: Frocedure 


(ci Funpese: TG instruct the UART on the currentiy 
selected communications port to send and RO-2iz BREAK signal. 
(2) Description of Farameters 


Input: Current_Com (public) 


CULpUt : A treak signal is generated oan the 
currently selected communications Biemwe. 
(4) Subroutines Called: 
CRT.Delay 


System.Fort 
(3) Process Description 
This pracess ORs the current contents of the UART 
Line Control Register with constant LCR_BREAF to instruct the UART ta 
send a constant space on the output line. A UART receiving this will 
set ite LSR_BREAK to signal a BREAK received. After a delay of about 
1/] second, the line is restored. 


fie RS232 Avail 
ee oe?  EUnet1 on 
(2) Furpoce: Informs the calling opragram that 
received characters are available to be read fram the current 
communications part. 


(2) Description of Farameters: 
Page Citrreme Can toubl] ic) 


Gee gilt 2 TRUE aif characters availiadle, FALSE 
Otherwise, 
(4) Gubroutines Cailed: None 
(=) Process Descriptian 
The buffer oginters RS_Buf Heac C€ Current_Com J 


and RS But Tai be equal if the buffer is empty, 
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q. Purgeline 
C1) Type: Frocedure 
(2) _—— Dumo the receive butfer and clear the 
WARY receive registers. Used to clear the communications line prior te 
an xAmodem pecket reception (Christensen, 1962, oO. 3). 
(2) Description af Parameters: 
ipl whewrren@e lem (oublie) 
Outputs The internal buffers are cleared. 
(4; Subroutines Called: 
Svctemsr ort 
' Process Description 
foes Ute mepol freee e Roetiit ead € Current _Com } 
age fol But _ Ve tig Curreec Com 1 are Goth set to their initial 
conditions (¢7rera) and the UART receive register is read to reset any 
pending receive interruot. 


a 


h. Connected 
(i: Type: Functian 


(2) Purpose: Returns TRUE if the currently selected 
communications port is receiving a hardware’ handshaking Signal, 
indicating the presence of a modem or a directly connected computer. 

(=) Description of Farameters: 

Input: Current_Com (public) 
Output: TRUE if connected, FALSE otherwise. 
(4) Subroutines Called: 
system.Fort 
(3) Frocess Description 
The UART Modem Status Register is read to detect 
the presence of Data Carrier Detect. This line is normally TRUE if a 
modem or computer 1S connected . 


l. RS 232 Peek 
(1) Types Function 
(2) Furpose: Nondestructive read of the receive 
buffer of the current cammunications port. Used to assist Xmodem 
synchronization in Unit Xmodm. 
(2) Description of Farameters: 
Input: Current_Com (public) 
Output: The next available received character. 
(4) Subroutines Called: 
CRT. Delay 
(2) Frocess Description 
The receive buffer pointers are compared for the 
currently selected communications port. If unequal, a character is 
available. If equal, a short delay is run and the test is repeated. 
When a character is available, it 15 returned from this function 
without disturbing the pointers. 


j. RS 2acein 
(1) 92 yoe: — Eepeercr 
(2) Furpase: Read the next character fram the the 
receive buffer of the current communications port. Used for all port 
reads. 
(3) Description of Farameters: 
Input: Current Com (public) 
Output: The next available received character. 
(4) Subroutines Called: 
CRT.Delay 
(3) Frocess Description 
The receive buffer pointers are compared for the 
currently selected communications port. If unequal, a character is 
available. If equal, a short delay is run and the test is repeated. 
When a character is available, it is returned from this function and 
the buffer head pointer is advanced. 


k. RS_ 232 Out 
(1) Type: Frocedure. 
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(2) Furpose: Send a character out of the currently 
selected communications port. Used for all port writes. 
(3) Description of Farameters: 
Inputs Current_Com (public); and Faram, the 
character to be sent. 
Dutput: The character is sent to the port. 
RS_ Error (public) 15 cleared. 
(4) Subroutines Called: 
CRT. Delay 
System.Port 
(5) Process Description 
The UART Line Status Register is checked on the 
currently selected communications port to see if the last character has 
been sent. If not, a short delay is runand the test 15 repeated. When 
the buffer is clear, the port Madem Control Register Request To Send 
and OUTS lines are set ta insure the hardware 15 prepared to send a 
character. Next, the corresponding Data Set Ready and Clear To Send 
status lines are checked and short delays run until they are true, if 
the options are selected. Last, the character 15 sent to the port and 
the error flag is cleared. 


1 Enable 
(1) Type: Frocedure 
(2) Purpose: Enable receive interrupts for a 


communications port. 
“x Description of Farameters: 
Input: IR@Q, 
Dutput: The proper Interrupt Mask Fit ain the 
Frogrammable [Interrupt Controller is cleared for the communicatians 
eet 
(4) Subroutines Called: 
System.Part 
(2) Frocess Description 
The procedure masks off the selected bit in the 
FIC Interrupt Mask Register. 


Me Disable 
(1) Type: Frocedure 
(2) Furpose: Disable receive interrupts for a 


communications port. 
(2) Description of Fiarameters: 
Input: IRQ. 
Output: The proper Interrupt Mask Bit in the 
Programmable Interrupt Controller is set for the communications port. 
(4) Subroutines Called: 
System.Fort 
(2) Frocess Description 
The procedure sets the selected bit in the PIC 
Interrupt Mask Register. 
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n. Establish 
(1) Type: Frocedure 
(2) Furpose: Enable the Data Terminal Ready, OUT2 and 
Request To Send handshaking bits on the selected communications port. 
(3) Description of Farameters: 
Input: Com, the communications port to be 
enabled. 
Output: The appropriate lines are set. 
(4) Subroutines Called: 
System. Fort 
(5) Frocess Description 
The OR combination of the Data Terminal Ready, 
OUT2 and Request To Send handshaking bits are set. 


O. Send_EOI 
(1) Type: Frocedure 
(2) meIrpOSse: Sends a specific End Of Interrupt 
command to the 8259 Programmable Interrupt Controller to indicate that 
& particular interrupt has been serviced. 
(3) Description of Farameters: 
Input: IRG, the interrupt serviced. 
Dutput: The Interrupt Service Register bit for 
the specific interrupt is cleared. 
(4) Subroutines Called: 
System.Fort 
(3) Process Description 
The 61it for specific interrupt 15 OR’d with #60 


Ee Reset Chip 
(i) Type: Frocedure 
(2) Furpose: To shut down a communications port. 
(2) Description of Farameters: 
Inputs Com, the port to bpemedisabked. 
Biter: The port is cleared, all handshaking 
lines are cleared, and interrupts are disabled on the UART. 
(4) Subroutines Called: 
System. UpCase 
system,Length 
(3) Pracess Description 
The UART Line Status Register 15 read repeatedly 
to clear all receive buffers. The system interrupts are disabled to 
prevent further interrupts from this port. The interrupts from the 
UART are disablec, and all port handshaking lines are dropped. The 
Frogrammable Interrupt Controller interrupt enable line for this port 
is reset. System interrupts are then restored. 


q. RS2Z32 lina 
(i) Type: Frocedure , 
(7) Furpose: Initialize the selected communications 
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(3) Description of Farameters: 
Input: COM, the port to be initialized; and 
Farams, the port parameter word. 
Output: The port 1s initialized. 
(4) Subroutines Called: 
DOS. Intr (#14), the communications port service 
macerrupt. 
(5) Frocess Description 
Com is adjusted to satisfy the requirements of 
Intr ($14) and register DX loaded with the communications port to be 
initialized. The packed word, Farams, is loaded into register AX and 
the interrupt is called. 


lan SelectBitRate 
(1) Type: Procedure 
(2) Purpose: Initialize the selected communications 
Blot. (2) Description of Farameters: 
Input: COM, the part ta be initialized: and 
Speed, the data rate for the port. 
Output: The port is initialized. 
(45 Subroutines Called: 
System.Fort 
System. Fortw 
(3S) Process Descriptian 
The communications port identified by Com is 
accessed and its Diviser Latch Access Bit is set to access the bit rate 
registers. The Speed parameter 15 mapped into a 14 bit control word 
ano placed in the UWART Divisor Latch. The Divisor Latch Access Bit i168 
then cleared and the port is allowed ta settle. The current baud rate 
setting i5 stared in the part initialization record for later 
reference. 


S. SelectWordLength 
(1) Type: Frocedure 
(2) Furpose: Initialize the selected communications 
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(2) Description of Farameters: 
Input: COM, the port ta be initialized; and 
Length, the word length for the port. 
Gaepwe.s) The pert 165 anitialized. 
(4) Subroutines Called: 
system.Fort 
System. Fartw 
=) Frocess Description 
The Speed parameter is mapped into an 8 bit 
control word and placed in the UART Line Control Register. The current 
length setting 1s stored in the port initialization record for later 
reference. 


or SelectFraming 
(1) Type: Frocedure 
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(2) Furpose: Initialize the selected communications 
port. 
(2) Description of Farameters: 
Input: COM, the port to be initialized; and Stop, 
the number of stop bits for the port. 
Output: The port is initialized. 
(4) Subroutines Called: 
System.Port 
System. Fortw 
(3) Process Description 
The Stop parameter is mapped into an 8 bit control 
word and placed in the UART Line Control Register. The current stap 
setting is stored in the port initialization record for later 
reference. 


u. SelectParity 
(i) Type: Frocedure 
(2) Furpose: Initialize the selected communications 
port. 
(2) Description of Farameters: 
Input: COM. the port to be initialized: and F, 
the type cf parity for the port. 
Output: The port 16 initialized. 
(4) Subroutines Called: 
System. Port 
System. Forty 
(3) Frocess Description 
The F parameter 1s mapped into an 8 bit control 
word and placed in the UART Line Control Register. The current stop 
parity is stored in the port initialization record for later reference. 


V. Send_String 

(1) Type: Frocedure. 

(4) Purpose: Toa send an ASCII string of characters 
out the currently selected COM port. Typically used to send command 
strings to a modem. 

(2) Description of Farameters: 

Input: S&S, the string to be sent. 
Oe mia The string 1s sent out the currently 
selected COM port. 

(4) Subroutines Called: 

DataCom.RS232 Out 
System.Length 
(2) Frocess Description 
The string is treated as an indexed array of 
characters, and each character is sent to procedure RS&232 Out in turn. 


W. RS Initialize 
(1) Type: Frocedure. ; 
(2) Furpose: To set the communications port toa the 
Input parameters, 


(3) Description of Parameters: 

Input: Com, the part to be initialized; Speed, an 
enumerated type ranging from 110 baud to 9600 baud; Parity, an 
enumerated type specifying No Farity, Odd, Even, or Don’t Care; The 
number of stop bits (1 or 2) and the length of the character word (5, 
oe? or & bits). 

(3) Qutput: The communications port 1s initialized. 
(4) Subroutines Called: 

DOS. Intr (#14) (BIOS communications port service) 

DOS. Set IntVec 

System. Fort 

(3) Process Description 

Com and the input parameters are adjusted far the 
BIOS call. The BIOS call initializes the port, however, it also 
disables UART receive interrupts. These are enabled separately and the 
UART Divisor Latch Access Bit is cleared to insure that further writes 
to the UART will set the proper registers. The UART 15 recycled and 
the hardware handshaking lines set. Receive interrupts are enabled at 
the UART, and the Frogrammable Interrupt Controller is enabled far the 
current communications port. The proper interrupt vector for this port 
is set tc point to our interrupt service routine. The settings stored 
in data structure CommFort C€ Com J] for future reference by RS_Restore. 


re RS Restore 
(1) Type: Procedure/Function 
(2) Furpoce: Restores the parameters of the 
communications port to the settings stored in data structure CommFort [ 
Com J. Used after a child process 1¢ Spawned to recaver communications 
port operatians. 
(2) Description of Farameters: 
Input: Com, the communications port to be 
restored 
Dutput: The selected port is restored. 
(4) Subroutines Called: 
DataCom.RS_Initialize 
(3) Frocess Description 
Com and the parameters stored in ComFort [€ Cam J 
used to call RS_Initialize. 
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Ye RS Eight_Bits 
(1) Type: Procedure 
(2) Purpose: fo set the current communications port 
fo e1ght data bits for Xmodm transfers. 
(2) Description of Farameters: 
Input: Current_Com (public) 
Output: The communications port is set for eight 


(4) Subroutines Called: 
system.Fort 


arr 


(2) Process Description 
The UART Line Control Register is ORed with #02, 
setting the number of data bits to eight. 


2% RS Cleanup 
(1) Type: Frocedure 
(2) Purpose: Disables interrupts for the current 
communications port at the Frogrammable Interrupt Controller. 
(2) Description of Parameters: 
Input: Current_Com (public) 
DOutput: The FIC is reset for this interrupt. 
(4) Subroutines Called: 
System.Port 
(3) Frocess Descriptian 
The interrupt Mask bit fiat the current 
communications port is set. 


aa. HexByte 
(1) Ty ypemeeruneeiEem 
(2) Furpose: Converts a byte into its hexadecimal 
string equivalent for the Unit Exit procedure. 
(2) Description of Farameters: 
Input: B&B, the byte to be converted. 
Outputs — A string of length two. 
(4) Subroutines Called: Wone. 
~) Process Description 
The byte 1s first shifted right four bits to 
coneider only the high order bits, and a character indexed from the 
hexadecimal sequence HexDigit. This 15 concatenated with the character 
praducec Ey indexing HexDigit by the low order four bits of EF ta form 
the two digit hex equivalent. 


ab. HexWord 
(1) Type:  Funciaienm 
{2} Furposes Converts a word into its hexadecimal 
string equivalent for the Unit Exit procedure. 
(2) Description of Farameters: 
Input: I, the word to be converted. 
Output: A string af length four. 
(4) Subroutines Calied: 
DataCom.HexByte. 
system. Hi 
System.Lo 
=) Frocess Description 
HexEyte is called with both the high and low order 
bytes af the word, and the resulting function results concatenated ta 
praduce a four digit hex equivalent. 


ac. DataComm_Error 
(1) Type: Frocedure 
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(2) Furpose: Provides a robust means of handling 
program faults while still insuring that interrupts are restored. 
(3) Description of Farameters: 

Input: System variables ExitCode, a word that 
Qives an indicaton of why program termination occured; and ErroraAddr, a 
pointer containing a runtime error address if nonzero; 

Output: The procedure writes any error messages 
desired to the display and resets any interrupt vectors to their state 
before program execution. 

(4) Subroutines Called: 

Dos. SetIntVec 

System.Assign 

System. Rewrite 

DataCom. Hex 

(3) Frocess Description 

This procedure is chained in to the normal exit 
pracessing that the compiler installs for the umit and the unit 
initialization code. It must be compiled using the Far Call model to 
be accessible by the program runtime library. The procedure first 
checks ExitCode and ErrorAddr for abmormal program termination and sets 
Output ta the standard file output far display to allow errar message 
display. The procedure then reperts a USER BREAK or runtime error = and 
address if applicable. The program then insures any interrupt vectors 
are restored and the communication= ports are shut down. The 
Frogrammable Interrupt Controller Interrupt Mask Register is restared 
from a saved location. Finally, the original exit code for this unit 
is restored from 4&4 saved lacation for use by the runtime system 
(TurboFascal Qwner’ Handbook, pe. 369-270). 


ad. DataCom Unit Initialization Code 
fi) Type: Frocedure 
(2) Purpose: Initializes the Unit, stores critical 
vectors and registers for restoration on program termination. 
(3) Description or Farameters: 

Input: System variables ExitFroc, a pointer that 
Gives the addrees of the DataComm unit exit procedure in the runtime 
inet, ety . 

Output: The procedure DataComm Error is linked in 
before the runtime exit procedure to accomplish an arderly termination 
epee Unit. 

(4) Subroutines Called: 
Das. 6etIntVec 
System.Fart 

(3) Frocess Description 

The procedure first sets CRT.CheckHBreak to TRUE to 
allow user termination of the program. A pointer ta the runtime exit 
procedure 1s caved, as well as the current settings for the 
Frogrammable Interrupt Controller Interrupt Mask Register for 
restoration on exit. GetIntVec is used to save the current interrupt 
vectors for communications parts one and two for restoration on ewnit. 
The communications port buffers are cleared, and the unit supplied exit 


wa 


procedure DataComm Error is linked in to the runtime system 
(TurboPascal Owner’ Handbook, pp. 369-370), Finally, the two 


communications ports are assigned default parameters, although not 
initialized at this time. 


APPENDIX F 


MAINTENANCE MANUAL FOR UNIT DIRECTOR 


A. UNIT DIRECTOR 


les Configuration Information 

a. Language —- Turbo Pascal Version 4.0 

b. Compiler Version — 4.0 

Ets Target Hardware —- IBM PC/AT or close compatible 

d. Operating System — Microsoft MS-DOS (Version 3.x) 

e. Program Description 

Director 15 a4 set of functions and procedures that 

allow the output MS DOS file directories to a windowed environment. 
Masking options and a selector for normal or abbreviated (similar to 
the MS-DOS /w switch) displays are allowed. 


ee Subroutines Contained 


au StandBy 
(1) Type: Procedure 
(2) Filiramee's Used internally by ShowDir , this 


procedure displays an operator prompt to pause long listings. The 
mrocedure exits when a key 1S pressed. 
(3) Description of Parameters: 
Input: Operator input from System. RKeadkey 
Output: Frompt information tc the window supplied 
alling program. 
(4) Subroutines Called: 
CRT. GoTaXxy 
CRT.HighVideo 
CRT. Wherex 
CRT. Wherey 
Syvetem.Readkey 
(3) Fracess Description 
The procedure notes the position of the cursor, 
writes a prompt to the operator, and waits until the aperator presses a 
key, The procedure then Blanks the prompt, and exits. 
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b. View_Dir 

(1) Type: Frocedure 

(2) Furpase: Fravides the selective display of a 
directory, with the filenames and subdirectories displayed in summary 
form (ma Gate, size or attribute data). 

(2) Description of Farameters: 

Input: MatchFtrno, which specifies the path = and 

Wildcerd options; FromLine ana ToLine, which specify the window ¢172e., 


Output: To the window supplied by the calling 
program. 
(4) Subroutines Called: 
CRT. GoOTOXY 
CRT.HighVideo 
CRT.Lowvideo 
DOS.FindFirst 
DOS.FindNext 
(3) Frocess Description 
The procedure positions the cursor at column one 
of the line specified in FirstLine, then utilizes the procedure 
FindFirst to find any file or directory matching MatchFtrn. This sets 
up the DOS unit for subsequent searches. The first entry found is 
displayed and then FindNext is used for subsequent entries until the 
directory 1s exhausted. Subdirectories are displayed in highlighted 
video for ease af recognition in this summary display. 


Ee. WriteEntry 
(1) Type: Procedure 
(2) Furpose: Displays the complete file or directory 
information of attributes, size, date and time for procedure ShowDir. 
(2) Description af Farameters: 


Inputs DirInfao, a DOS Unit structure that 
cantains packed information about the most recently found directory 
entry: line, the window line to dcisplay the information on. Output: 


Te the window sucoplied By tne calling program. 
(4) Subroutines Called: 
GetAttribut 
CRI . baiere 
CRT. HighVidea 
CRT.Lowvideo 
DOS. Funai est 
DUS. FindNext 
DOS.UnFackTime 
([) Frocess Description 
The procedure calls library procedures in the DOS 
unit to unpack the time entry ine vie ec. GetAttribut maps the 
attribute oarder to a string representatian. The name, "“«DIR=" 
designation oar file size, creation date and time, and the attribute 
string are then written on the display at Line in MS-DOS format. 


d. GetAttirbut 
(1) Type: Frocedure 
(2) Furpose: Map an MS-DOS attribute number to a text 


string 
(2) Description of Farameters: 
Input: attr, the ordinal MS-DOS attribute 
cambination. 
Output: attribut, a string to return the text. 


String representation af the attribute. 
(4) Subroutines Called: 
System. Str 
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) 
canstruct to load 
does not map, the hex 
to a string for displ 


Frocess Description 

The attr variable is used as a selector ina case 
attribut with the proper string. If the variable 
adecimal number in the variable attr is converted 


ay. 


e. Show_Dir 
(1) Type: Procedure 
(2) Furpose: Frovides the selective display of a 


directory, with the filenames and subdirectories displayed 


in summary 


form (no date, size or attribute data). 


(2) 


Description of Farameters: 


fyetanet MatchFtrn, which specifies the path and 
wildcard options; FromLine and ToLine, which specify the window s5172e8; 
error, which reports DOSerror back to the calling program. 

Output: To the window supplied by the calling 
program. 

(4) Subroutines Called: 

Crier EOL 

Bel Chieoer 

CRT. GoOTOXY 

CRT.HighVideo 

CRT.Lovideo 

Director.WriteEntry 

DOS.FindFirst 


(3) 


find any file ar directory matching MatchFtrn. 


unit for subsequent 
which indicates error 
entry, the entry 1 


Status message 16 displayed and the procedure exits. 


found is displayed 
until the directory i 
window 
a call to the procedu 


key to continue. 


DOS.FindNext 

System. INC 

Frocess Description 

The procedure utilizes the procedure FindFirst to 

This sets up the DOS 

searches. Depending on the state of DOS.DOSError, 

conditions on the attempt to find ae directory 

either displayed via WriteéEntry or an error or 

fie first wentay 
and then FindNext is used for subsequent entries 

Ss exhausted. For directories that exceed the 


S 


S1z6@ specified by FromLine and ToLine, the cisplay 15 paused by 


re StandHy and the operator is allowed to press a 


Fo 


APPENDIX G 


MAINTENANCE MANUAL FOR UNIT ERRORCOD 


A. UNIT ERRORCOD 


i: Configuration Information 
a. Language — Turbo Pascal Version 4.0 
b. Compiler Version —- 4.0 
c. Target Hardware - IBM PC/AT or close compatible 
d. Operating System — Microsoft MS-DOS (Version 3.x) 
e. Program Description 
ErrorCod 185 a array of string constants mapped by the 
DOS Error Cade, Error Class, Recommended Error Action and Error Locus 
indices found in (Micrasoft, 1986, pp. 3-1 = 3.11, 4.204 — 4, 25505 
unit 15 used by the units Parser, Spawn and the program Distrib to 
report errars. A procedure 1s also provided to retrieve extended error 
code informatian available in MS-DOS versions 3.9 and abave by DOS 
function Call a7. 


Pag Subroutines Contained 
a. Extended _Error_Code 


(1) Type: Frocedure 
(2) Furpose: Jo return the extended error code, class 


and lacus information available in MS DOS version 232.9 and later, in 
rescaonse ta a DOSERROR result. 
(3) Description of Farameters: Extended Errar_Code 


returne the Error Code, Errar Ciass and Error Locus in the respective 
Variables. 
(4) Subroutines Called: 
DOS. lgrriees ie 
(3) Frocess Description 
Thig procedure calls DOS function ED with 
register BX = © te get extended error information from MS DOS following 
an operating system error flag, as indicated by the Turbo Fascal 
Variable DQOSERROQR =: 0, 
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APPENDIX H 


MAINTENANCE MANUAL FOR UNIT GENERAL 


A. UNIT GENERAL 


iva Configuration Information 
a. Language —- Turbo Pascal Version 4.9 
be Compiler Version —- 4.90 
es Target Hardware - IBM PC/AT or close compatible 
d. Operating System —- Microsoft MS-DOS (Version 3.x) 
e. Program Description 
General 15s a collection of general purpose routines 
that support the Wndow Unit and other modules. 


Fam Subroutines Contained 


a. FillWord 
(1) Type: Frocedure 
(2) Furpose: Given a variable, V, the procedure fills 
Num words in the variable with integer Value. 
(2) Description af Farameters: 
Input: Variable Vs Num, the number of words to be 
filled; and Value, the fill value. 
Voie Vy 1Setettilened after filling. 
(4) Subroutines Called: 
Inline assembly 
(2) Fracess Description 
Register DI is initialized with the starting 
offset af the variable V, CX contains the number of wards to be filled, 
and AX contains the Value to be used to fill. The STOSW instruction 
autoincrements the BI register after eacn stare and decrements Cx. The 
loop ends when CX = oO, Using assembly language string processing 
instructians, the procedure uses the DI index register to point ta the 
memory iterates a stare operatian with the i6 bit word Value beginning 
Sees tirst location in V and continting for Num iterations, 
incrementing the starage location by a 16 bit word each time. 


b. Exchange 
(1) Type: Fracedure 
(2) Furpose: Exchange the contents of two variables 
without compatibility checking. 
(2) Description of Farameters: 
Input: 5S, D are the variables toa be exhanged, and 
Ll is the mumber bytes to be exchanged. 


Output: The variables S and D are returned after 
the exchange. 
(4) Subroutines Called: 
Inline assembly 
(2) Frocess Description 
Register DI is loaded with the offset of variable 
S, register SI with that of D. CX receives L. The value at variable 
D, indexed by DI, 1s loaded into AX and exchanged with the value at 
variable S&S, indexed by SI. STOSB autoincrements both index registers 
and decrements CX. The loop stops as CX reaches QO, 


-— Beep 
(i) Type: Frocedure 
(2) Furpose: Produce a speaker tone for 1/4 second. 
(3) Description of Parameters: 
Input: Freq, the desired tone frequency. 
Output: A speaker tone. 
(4) Subroutines Called: 
CRI. Delay 
CRT. Sound 
CRT. NoSound 
(3) Process Description 
CRT procedures NoSound and Sound operate in 
tandem. First the speaker is silenced. Then, the Sound procedure in 
the CRT Unit is called with parameter Freq and a delay of 1/4 secondo is 
allowed before turning the speaker off again. 


d. Ma» 
fl) Type: Function 
(2) Furpose: Returns the larger of two integers. 
Typicaily used with Open Window to insure the window is large enough to 


hold Menu disolay. 
(3) Description of Farameters: 
Input: x, Y, the integers to be compared. 
Output: The larger integer of the input 


parameters, 
(4) Subroutines Called: None. 
(5) FProcess Description 
The two integers are compared and the function 
result equatec to the larger. 


e. Min 
(1) Type: Function 
(2) Furpose: Returns the smaller af two integers. 
Typically used with Open_Window to insure the window is large enough to 
hold a menu display. 
(3) Description of Parameters: 
Input: xX, Y, the integers to be compared. 
AUK s atshet The smaller integer of the input. 
parameters, 
(4) Subroutines Called: None. 
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(2) Frocess Description 
The two integers are compared and the function 
result equated to the smaller. 


tx Cursor _S1ze 
(lige: Function 
(2) Purpose: Sets the cursor displayed as either an 
underline or a block. 
(3) Description of Parameters: 
Input: Cursor_Type an enumerated type consisting 
of line, block or invisible. Mono is TRUE if the display 15 
monochrome, FALSE if color. 
Output: The video card is updated to display the 
selected cursor. 
(4) Subroutines Called: 
DOS. Intr (¥10) (video service) 
(S) Frocess Description 
Register AX is set to #10 to call the BIOS video 
service, and the CX register is set to the proper value for the cursor 
requested prior to the call. 


g- Get Time 
Oo) Siveec: “Fenction 
(2) Furpose: Returns a string with the current time. 
(2) Description of Parameters: 
Input: Nothing. 
Output: A string with the current time in format 
Fatehisoo <M. 
(4) Subroutines Callea: 
DOS. Intr (#21) (DOS service) 
Sy Sem. ocr 
(3) Pracess Description 
Register AH is set to #20 to cail the DOS time 
cervice, amd the CH, CL, DH and DL return the ordinal number for hours, 
minutes, seconds and hundreths of seconds (Norten, 1985, po. 287). The 
Turbo Fascal Str procedure is used to convert each number intc a string 
representation. The strings are then concatenated with formatting 
characters ang AM ar FM motations. 
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APPENDIX I 
MAINTENANCE MANUAL FOR UNIT MISCPACK 
A. UNIT Miscpack 


il. Configuration Information 
ds Language - Jurbo Pascal Version 4.0 
b. Compiler Version —- 4.0 
Gs Target Hardware - IBM PC/AT or close compatible 
d. Operating System ~ Microsoft MS-DOS (Version 3.x) 
e. Program Description 
Miscpack 15 a collection of data types and utility 
routines supporting these other units: Xmodm, Parser, Spawn, Redirect, 
and the main program Distrib. The strong typing features of Turbo 
Fascal require that instances data types in different units that must 
be equated be declared in one place to be compatible at compile time. 


De Subroutines Contained 


a. BumpStrup is 
(1) Type: Procedure 
(2) Furpose: To convert any string to upper case 
characters. 
(2) Description of Farameters: 5 is the formal 
Variable for a string af any length, since length checking is relaxed. 
(4) Subroutines Called: 
System. UpCase 
system. Length 
(5) Process Description 
This procedure returns the string as a call by 
reference parameter after converting ail of the characters making up 
the string toa uppercase. 
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APPENDIX J 


MAINTENANCE MANUAL FOR UNIT PARSER 


A. UNIT PARSER 


L. Configuration Information 
a. Language — Turbo Pascal Version 4.0 
b. Compiler Version — 4.0 
Cc. Target Hardware —- IBM PC/AT or close compatible 
d. Operating System —- Microsoft MS-DOS (Version 3.x) 
e. Program Description 
The central procedure in this unit 15 Farser_Main, 
which attempts to parse and execute an MS-DOS style command on the 
local machine. The remaining procedures and functions support this 
FoMmetion. 


ae Subroutines Contained 


a. argc 
(‘ijee Type: Fumeticon 
(2) Furpose: Returns the number of arguments in the 
command line parsed by the procedure Farce. Farse must be called 
berore this function 15 valid. 
(3) Description of Farameters: 

Inout: None. 

Output: The number of arguments in the command 
liné last parsed. 
(4) Subroutines Called: 

(3) Frocess Description 
argc 1s set to the variable arg_count, which is 
loaded by Farse. 


b. argv () 
(1) Type: Function 
(2) Purpose: Return the arg_count ‘th argument 


encountered on the last command line parsed by procedure Farse. Farse 
must be calied before this function is valid. 
(3) Description of Parameters: 

Input: arg count, the index of the argument 
desired, arg_array, the index to the arguments indexed, and argq_string, 
a copy of the command. 

Dutput: A string, up to 128 characters long, 
containing the arg_count ‘th argument. 

(4) Subroutines Called: None. 
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(3) Process Description 

Following a call ta procedure Parse, the data 
structure arg_array 15 loaded with the relative index of the start of 
each argument in the command line parsed, and the length of that 
argument. A length of zero at that index indicates no argument was 
found. To construct the arg_count‘’th argument, the command saved in 
arg string is copied starting at the index saved in the index field in 
the arg_count ‘th record of array arg_array, for the length field in the 
same record. 


Ge Init Parse 
(1) Type: Procedure 
(2) Furpose: To parse the input string for 
Farser Main, and initialize the component strings for later use. 
(3) Description of Farameters: 
Input: Command_s, an input parameter for 
Farce Main. 
Qutput: Pathspec is set to argv(®), the remaining 
drive, node, and name strings are parsed. 
(4) Subroutines Called: 
Farse.argv(Q) 
Parse.FarseName 
(3) Process Description 
This procedure is local to Farse Main, and is used 
any time the command ¢tring being parsed i¢6 first parsed, or after the 
command has been modified. 


d. Parse 
(1) Type: Frocedure 
(©) Purpose: Set up the argv and arc functions for a 
commanc line received. 
(2) Description of Farameters: 
Inputs: Command, a string variable containing the 
command to be parsed. 
Output: arg_array and arg _count are private 
Variables visible inside this unit. 
(4) Subroutines Called: 
System. Inc 
System.Length 
(3) Process Description 
First, a copy of the command is retained outside 
this procedure in arg_string for later use by argv. Arg_array is then 
initialized to clear old parsing actions, and arg_count is initialized 
to zera to act as an inde for arg_array. The cycle begins by skipping 
leading whitespace in the command. When the first non whitespace 
character is encountered, the index of the string is noted in the 
arg _count’th record of arg_array and non whitespace characters are 
skipped while incrementing the length field ta determine the length of 
the argument. Usan reaching whitespace again. the next record in, 
erg_array 16 selected and the cycle repeats until the end of the string 
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is reached. arglarray, arg count and arg string are retained in 
variables private to the unit for future ust. 


e. ParseName 
(1) Type: Procedure 
(27) Purpose: Ereak a complete filename with path = and 
drive inta its component parts. 
(3) Description of FParameters: 
Input: inName is a composite drive, path and 
filename string. 
Output: The component file name, extension, name 
and extension, path, drive and node (if any) in inName. 
(4) Subroutines Called: 
System. Copy 
System. Delete 
System.Length 
(3) Process Description 
The syntax nor inName 1S 
[Node::J{Drive: J£\Jdirectoryl\directory\ifilespecl/Switch)], similar to 
the MS-DOS command line syntax with the exception of the node 
designator, which was intended for use with cammands intercepted by a 
backoround process. The procedure scans the command line backwards, 
locking for the delimiters established in the constants Fath_or_drive 
and Hode or_drive. When such delimiters are found, the suceeding 
substring 1S copied inte the appropriate autput variable and the 
command 1s truncated to continue the scan until the first character is 
reached. The filename, if any, 1s then broken down similarly into its 
component name and extension (Swan, pp. 26 - 27). 


te Resolve Command 

(i) Type: Function 

(7) Furpose: Thi¢ procedure 1s passes the first 
aroument in a command line and attempts to create a complete path 
specification and match the filename ta a command normally handled 
internally by the DOS command processor or to an executable file in the 
specified directory. Relative directory citations are adjusted to a 
path from the root directory. Farser_Main sets up the component parts 
of the first argument via Farse Name and places them in the variables 
immediately above this function. 

(2) Description of Farameters: 


Input: Argurement, the first parameter in the 
commanc line from Farser_Main. 
Output: Argument, corrected to a complete path 


specification and filename extension. The function returns the type of 
tile detected (batch file, com file, executable file, directory, 
pathstring or other file) ase an enumerated type. 
(4) Subroutines Called: 
System. GetDir 
DaSeF baa ir st 
DOS.FindNext 
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(5) Process Description 

Resolve_command first determines the current 
directory with GetDir, and adjusts any relative directory path 
specification found in argument to a full path specification complete 
with drive and root directory, if needed. This is needed by the Exec 
function called by Farser_Main. If no file extension was parsed by 
Farse Name, Resolve_Command attempts to find an executable file in the 
directory cited by the now complete path specification by finding a 
file with the same name and an "COM", "EXE", or "BAT" extension. They 
are searched for 1n reverse priority so that the Exec call will attempt 
to execute the filename with the highest rank, as Command.Com does 
(Mefford, 1988, p. 336) and the file type is identified. If the 
command did cite a filename with extension, the file type 1s 
identified. The file type is returned by the function for Farser_Main. 
If an executable file was not found, a check 1s made to see if a 
directory by that name exists, otherwise a general pathname type 15 
returned. 


g- Parser Main 
(1) Type: Frocedure 
(2) Furpose: This procedure parses a command received 
hy the Slave and attempts ta execute it. 
(3) Description of Farameters: 
Input: Command_s, the received command string. 
Ouse ct tas Response and Error_Msg are strings 
containing either the command output and error messages, respectively, 
or filenames containing the information. Restype and Errtype tell the 
calling program what Response and Error_Msq contain. Frompt is the 
local machine current directory for return ta the Master via the 
calling program after the response 15 competed. 
(4) Subroutines Called: 
Farser. InitParse 
Farser. Match Command 
Farser.Resolve_Command 
Farser,.Farse 
Farser.FarseName 
rarser.argc 
Farser.argv() 
Soawn. Match Command 
Spawn.Frocess_intrinsic_command 
Spawn. Run local 
System. Length 
(Si Frocess Description 
Qn entry, command_s contains the complete command 


to be executed. Its camponent arguments are isolated by Init_Farse, 
and then a special case is checked to see if a Simple drive change 15 
rectestedm (2. c en Gram If sa, the internal DOS command "CD" is 


prefixed to the command and it is re-parsed. The filename in the first 
argument ais checked by Spawn.Match_Command against a set of commands 
that this program handles internally. This is a subset of the MS-DOS 
internal commande: Change Directory, Copy, Delete, Directory, Erase, 
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Make Directory, Remove Directory, Rename and their abbreviated forms. 
If matched, the command is passed to Spawn.FProcess_Intrinisic_Command 
for execution and collection of responses. If not, the file type 
returned by Resolve Command is used as a case selector to either run an 
executable file via Spawn.Run_Local, or a syntax error indication 15 
returned to the calling program. If executable, the command (program 
name) is separated from the following command tail and passed to 
Run Local. 
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APPENDIX K 


MAINTENANCE MANUAL FOR UNIT REDIRECT 


A. UNIT REDIRECT 


i; Configuration Information 
a. Language - Turbo Pascal Version 4.0 
b. Compiler Version - 4.0 
ey Target Hardware - IBM PC/AT or close compatible 
d. Operating System —- Microsoft MS-DOS (Version 3.x) 
e. Program Description 
Redirect 15 a set of functions and procedures that 
allow the output of programs spawned under the Slave computer ’s copy of 
the mein program Distrib to be redirected to files. Once the proaram 
ends, the Slave computer can then forward the output normally displayed 
on the screen to the Master computer for display. 


Pap Subroutines Contained 
a. Init_Redirect_Unit 
(1) Type: Procedure 
(7) Furpose: To reverse the Turbo Fascal 
initialization of the Fascal standard files Input and Output to the CRT 
Linit in preparation for redirection. 
(3) Description af Farameters: None. This procedure 
reassiagns the Fascal standard files Input and Output. 
(4) Subroutines Called: 
Soystem.Assign 
System. Reset 
System.Rewrite 
=“) Frocess Description 
The Turbo Pascal Version 4.0 reference manual 
indicates that the initialization code found in standard Unit CRT 
assians the Fascal standard test files Input and Qutput to the CRT 
Unit. In order toa accomplish I/Q redirection, these files must be 
rereterenced ta the standard input and output. The above subroutines 
accomplish this. 


ae Duplicate Handle 

(1) Type: Function 

(2) Furpose: Returns a second handle that refers to 
the same file (or device) as the variable Handle. Used to save the 
reference to standard I/Q for later restoration after redirection ends. 

(3) Description of Farameters: Handle is the file 
handle to be duplicated. ErrorNum is a variable for an MS-DOS error 
code returned in the AX register if the MS-DOS function call fails. 
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(4) Subroutines Called: 
BeSe intr ($21) 
(3) Process Description 
The DOS. Intr (#21) call is to the Duplicate_Handle 
function, #45. The function returns another handle of type word. 


= Close _File_ Handle 
() Tyoes Fumetion 
(2) Furpose: Closes a file handle that refers to a 
file or device. Used to terminate I/0 to the standard input or output 
handle when redirected, and to dispose of the redirection handle. 
ErrorNum is a variable for an MS-DOS error code returned in the Ax 
register if the MS-DOS function call fails. 
(=) Description of Farameters: Handle is the file 
handle to be closed. 
(4) Subroutines Called: 
DOS. Imtume 1) 
(3) Frocess Description 
The DOS. Intr ($21) call is to the Close Handle 
function, #36. ErrorNum is returned with an MS-DOS error code if the 
call fails, as indicated by a FALSE function result. 


d. Redirect Handle 
i) Type: Procedure 


(2) alispese: Forces a handle used by the system for 
standard input or output to be redirected to the same file or device as 
another handle. The file or device originally pointed to may then 


closed. [f/0 tea the stancara input or output handle now appears at the 
same file or device as the handle redirected to. 

(2) Description of Parameters: Handle is the file 
handle pointig ta the file or device to be redirected to, Red_Handle is 
the standard I/0 handle to be redirected. 

(4) Subroutines Called: 

DOS ainecr (ea) 
(5) Frocess Descriatian 
The DOS.Intr (#21) cai 1s ta the FDup Handle 
function, 46, ErrorNum 15 returned with an MS-DOS errar code if the 
call fails. Qn return the redirected stangard 1/0 handle now operates 
through the file or device of Handle. 


e. Redirect _Std Output 

fl) Type: Function 

(2) Furpace: Redirects Standard Output ta a file of 
Our choosing. 

(3) Description of Farameters: StdQut is the MS-DQS 
standard output file handle to be redirected. Std Output File Temp is 
the file that output will be redirected toa. 

(4) Subroutines Called: 

Redirect.Duplicate Handle 
Redirect.Redirect Handle 
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=“) Frocess Description 
The temporary output file 1s opened, a handle 
pointing to StdOut is saved and then StdQut is forced to point to our 
output file. 


Ee Restore Std Output 

(1) Types Function 

(2) Furpose: Restores the saved standard Output to 
its previous state, sets a variable Response File to the name of the 
file holding the redirected output to end redirection. 

(2) Description of Parameters: StdQut is the MS-DOS 
standard output file handle that was redirected. Std_Output_File Temp 
is the file that output was redirected to. Saved Std Out is the handle 
that points to the original standard Output. 

(4) Subroutines Called: 

Redirect.Close File Handle 
Redirect.Redirect_Handle 
(2) Froceses Description 
StdOut, the file handle for standard output is 
reset to point to Saved _Std_ Out, the temporary file Std_Output_File is 
closed for writing, and the variable Response File is set to the name 
of the temporary file 1 no errors are encountered, atherwise NIL. 


Q. Redirect_Std_Input 

vl?) 6oypere tT Unc Cl on 

(2) Fuspose: Redirects standard Input to be drawn 
from & file of our choosing. 

(2) Deecription of Farameters: StdiIn is the MS-DOS 
standard input file handle to be redirected. Std_Input_File_Temp is 
the file that input will be redirected from. 

(4) Subroutines Called: 

Redirect.Duplicate Handle 
Redirect.Redirect Handle 
(3) FPracess Description 
The temporary input file is opened for reading, a 
capy af the handle pointing to StdIn 1s saved and then StdiIn is forced 
£tG point fe OU Tae hee 


h. Restore Std Input 
(1) yee: Filineeren 
(2) Furpose: Restores the saved standard Input to its 
previous handle, and closes the input file to end redirection. 

(3) Description of Ffarameters: StdiIn is the Msapime 
tandard input file handle that was redirected. Std Input _File_Temp is 
he file that input was redirected from. Saved Std_In is the handle 
hat points ta the original standard Input. 

(4) Subroutines Called: 

Redirect.Close File Handle 
Redirect.Redirect_Handle 


= 
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(3) Frocess Description 
StdIn, the file handle for standard input is reset 
to point to Saved_Std_In, the temporary file Std_Input_File is closed 
for reading. The function returns TRUE if no file errors are detected. 


We Redirect _Std Error 

(1) Type: Function 

(2) Furpose: Redirects standard Error to be sent to a 
fol e~eat our choosing. 

(=) Description of Parameters: StdErr is the MS-DOS 
standard error file handle to be redirected. Std _Error_File_Temp 1s 
the file that error will be redirected to. 

(4) Subroutines Called: 

Redirect.Duplicate Handle 
Redirect.Redirect_Handle 
(3) Frocess Description 
The temporary error file is opened for writing, a 
copy of the handle painting to StdErr is saved and then StdErr 1s 
@erced £5 point to our error file. 


oe Restore Std _ Error 
(1) bypeomeFumetion 
(7) Furpose: Restores the saved standard Error toa its 
previous handle, and closes the error file to end redirection. 
> Veser-rvorcren™ of Farameters: eStdErr isethe MS-DOS 
standard error file handle that was redirected. Std _Errar_File_Temp is 
the fiie hat Error was redirected to. Saved Std_Error is the handle 
that points to the original standard error. 
(4) Subroutines Called: 
Redirect.Close File _Hancie 
Redirect.Redirect Handle 
(3) Process Description 
Seeerr, the §file handle tor standard error is 


reset to point ta Saved _Std Error, the temporary file Std_Error_File is 
closed for reading. The function returms TRUE if no file errors are 
detectec. 


rs Redirect_All Output 
(i? lyoe:  Funeegien 
(2) Furpose: Redirects both standard error and 
standard output to a file of our choosing. 
(3) Description of Farameters: StdOut is the MS-DOS 
Standard output file handle to be redirected. Std Output _File_ Temp is 
the file that output will be redirected to. Stdeer bea the MS-DG&S 
standard errort file handle to be redirected. Std_Error_File_Temp is 
the file that output will be redirected to. 
(4) Subroutines Called: 
Redirect.Duplicate_ Handle 
Redirect.Redirect_ Handle 
(3) Frocess Descriptian 
The temporary output file 1s opened, a handle 
mointing to StdQut is saved and then StdQut 156 forced to point to our 
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Output file. The process is repeated for StdErr, except that it is 
redirected to the same output file. 


1 Nee Restore _All Output 
(1) Type: Function 
(2) Furpose: Restores the saved standard output and 
error to their previous states, sets a variable Response File to the 
name of the file holding the redirected output to end redirection. 
(3) Description of Farameters: StdOut is the MS-DOS 
Standard output file handle that was redirected. std Output File Temp 
is the file that output was redirected to. Saved Std Out is the handle 
that points to the original standard Output. StdErr is the MS-DOS 
standard output file handle that was redirected. Std _Error_File Temp 
is the file that output was redirected to. Saved Std Err is the handle 
that points toa the original standard Error. 
(4) Subroutines Called: 
Redirect.Close File Handle 
Redirect.Redirect Handle 
(2) Frocess Description 
StdOut, the file handle for standard output is 
reset to point to Saved Std Out, the temporary file Std Output File is 
closed for writing. StdErr, the file handle for standard error is 
reset toa point ta Saved_Std_ Err, the temporary file Std_Error_File is 
closed for writing, and the variable Response File is set ta the name 
of the temporary file if no errors are encountered, otherwise NIL. 


Mm. Restore CRT Assignments 
(1) Type: Frocedure 


(2) Purogose: To set the standard Input and Output 
extdrivers in the CRT Unit. Faster inoput and output is 


es A 
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(3) Description of Farameters: None. [This procedure 
Fascal standard files Input and Gutput to CRT.AssignCRT ¢ 
Input ) and CRT.AssignCRIT ¢ Output }. 
(4) Subroutines Called: 
System. AssignCRT 
System.Reset 
System. Rewrite 
(5) Process Description 
The assignments restore the input and output 
standard files to the CRT unit. 
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APPENDIX L 


MAINTENANCE MANUAL FOR UNIT SPAWN 


A. UNIT SPAWN 


a” Configuration Information 

a. Language - Turbo Pascal Version 4.0 

b. Compiler Version - 4.0 

Cc. Target Hardware - IBM PC/AT or close compatible 

d. Operating System —- Microsoft MS-DOS (Version 3.x) 

e. Program Description 

This unit detects commands that should be processed 

internally by the Distrib program, and executes commands internally or 
by Spawning a child process. Command output and error responses are 
returned to the caller either as strings suitable for conversion toa 
xmodm buffers, or by reference to files cantaining the text. This unit 
also contains the redirection switch as a public variable that dictates 
whether proaram output will be redirected tao a file or displayed 
locally on the screen. This switch is normally set to redirect ta 
ere. 


2’. Subroutines Contained 


ae Match Command 
(1) Types Function 
(2) Furpose: Ta search a command string for a substring 
that matches a command to be processed internally by the Slave program. 
(2) Description of Farameters: 

Input: Filespec is a command stripped of path 
EHeairleatiOnm, Of leadrng or trariing spaces. 

Output: The function returns TRUE if a match was 
found, alang with an enumerated type matching the command, FALSE 
otherwise. 

(4) Subroutines Called: 
System.Length 
system.Fos 

(3) Froacess Description 

A substring search is conducted using the enumerated 
internal command type to index an array of strings containing the 
command names. The internal command must be matched by exact 
replication and must be positioned as the first substring in FileSpec. 


b. Process Intrinsic Command 
(1) Type: Frocedure 


(2) Furpose: This procedure executes an internal 
command detected by Match_Command. This procedure, and Run_local, 
execute commands for Spawn.Parser Main. 

(2) Description of Parameters: 

Input: Command, the enumerated type specifying the 
internal command. Command_tail are the parameters for the internal 
command. 

Output: Response’ and Error_Msq are strings 
containing either the command output and error messages, respectively, 
or filenames containing the information. Restype and Errtype tell the 
calling program what Response and Error_Msg contain. Frompt is the 
local machine current directory for return to the Master via the 
calling program after the response 15 competed. 

(4) Subroutines Called: 

System. ChDir 

System. GetDir 

system. Mkdir 

System. RmDir 

(3) Frocess Description 

The Command parameter 15 used in a CASE construct 
select commands that are completed by Turbo Fascal functions and 
pracedcures, and to pass other internal commands to Run_local to spawn a 
copy of the MS-DOS command processor and run the command. This 
aporcqach 15 taken ta greatly simplify the command parsing and 
execution, since these requirements can be offloaded ta the spawned 
command processor far commands with complex processing requirements 
such as DIR. Batch mode is set ta signal Run_Local to Spawn a copy of 
the command processor rather than attempting to execute the command as 
a program. 


Ge Run_Local 
(1) Type: Frocedure 
(2) Furpose: This procedure executes all command that 
nd detected by Match _Command. Thies procedure, and 


Frocess Intrisic Command, execute commands for Spawn.Farser_ Main. 
(3) Description of Farameters: 

t eee. Frogrem_ name, the name of the command or 
file to be executed: Command_line, the arguments for the command or 
file; anc Batch, which signals that a copy of the MS-DOS command 
pracessor is to be used to run the program for batch files and certain 
internal MS-DOS cammands. 

Okicieliher Response and =rror_Msgq are strings 
containing either the command output and error messages, respectively, 
or filenames cortaining the information. Restype and Errtype tell the 
calling program what Response and Error_Msqg contain. Frompt is the 
local machine current directory for return to the Master via the 
calling program after the response 15 competed. 

(4) Subroutines Called: 

Redirection. Init_Redirection_Unit 

Recirection.Redirect All Output 

Redirection.Restore_ All Output 


a 


Redirection.Restore CRT Assignments 

Support.Find Environment 

System. ChDir 

System. GetDir 

System. UpCase 

System,Length 

(3) Frocess Description 

CRT.CheckBreak 16 set to allow an operator to 
terminate execution of a runaway program. If the Batch flag is set, 
the command 15 adjusted to execute a copy of COMMAND.COM and the 
original commana and arguments are moved to command tail. 
Find Environment is used to locate the explicit path specification and 
file name for COMMAND.COM, as required by the Exec procedure. The 
current directory 15 Saved to return the program to its working 
directory after command execution. If the Redirection flag has been 
set, calls are made to the Redirection Unit to route all subsequent 
program autput ta files visible in the Redirection Unit. This 
redirection is inherited by any proarams spawned from this pragram by 
Bee 4orecu, 198/775. 25). Exec is then called tc spawn the 
corodgram(s)., On return, the standard autput handles are restored and 
the original working directory restored as a precaution. 


igi. 


APPENDIX M 


MAINTENANCE MANUAL FOR UNIT SUPPORT 


A. UNIT SUPPORT 


ve Configuration Information 
a. Language —- Turbo Pascal Version 4.0 
b. Compiler Version —- 4.0 
c. Target Hardware —- IBM PC/AT or close compatible 
d. Operating System - Microsoft MS-DOS (Version 3.x) 
e. Program Description 
The Support Unit contains most of the constant 
declaratians for the program, along with the initialization procedure 
same general purpose procedures. From (Edwards, 1987, pp. 241 - 272), 


Pd Subroutines Contained 


a. Initialize 
(1) Type: Frocedure 
(2) Furpoces This procedure sets the default 


parameters for the program, attempts to read the telephane number file 
and creates a file aif mone exists, reads the user developed 
configuration file to averride some defaults, displays the terminal 
screen anc initializes the Widow Unit. 
(2) Description of Farameters: 
rane 
Outputs 
(4) Subroutines Called: 
Syetem.UpCase 
Syetem.Length 
(>) Frocess Descriptian 
This procedure hi rSt attempts to open a 
configuration file under the name found in the constant structure 
Deraults. If this file exists, the current configuration is read in toa 
a similar structure called Current, otherwise all parameters are taken 
from the constant structure. This is used to set the screen colors, 
identify the initial communications port to use, and identify the modem 
ais) nee This file may be updated from the Master screen. From the 
configuration zelected, the environmental parameters are established. 
A similar proacets attempts to read the list of telephone numbers and 
acsociatec parameters, however the size of this array is nat known in 
advance. A memory block is drawn from the heap for each telephone 
record reso to make the list. If the fiie does not exist, a dummy 
record 1s established. This file may also be updated from the screen. ” 
Finally, the designated communications port is initialized. This ais 
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essential if the Slave computer 1s to recognize external commands 
without operator intervention. 


b. Save File 
(1) Type: Procedure 
(>) Purpose: To save user modified configuration or 
telephone dialing list parameters in a local file for later use on 
program initialization. 
(3) Description of Farameters: Dis a boolean switch 
that selects the file to be saved. 
(4) Subroutines Called: 
Wndow. Open_Window 
CRT #@irScr 
Support. Yes 
Support.NoFile 
Support. OF 
Wndow. Close_ Window 
(2) Frocess Description 
This procedure saves the default environmental 
parameters as modified by the user in the file DISTRIB.CFG: or the 
current list of telephone numbers and communications port parameters in 
the file DISTRIE.FHN. Both files are loaded on program initialization 
(if availabie) and override the default parameters found in the 
constant data structures in the unit Support. 


an OK 
(1) Type: Frocedure 
(2) Furpose: To obtain an acknowledgement from the 


user, 
(") Description of Farameters: 
Input: S&S, the string to title the prompt window. 
Output: The user Ras responded if the call 
returns. 


(4) Subroutines Called: 
Wndow. Qpen_Window 
Wndow.Frocess_ Window 
Wndow.Close Window 
(3) Frocess Description 
This function opens a window with 4a "OK" display 
and the query in the window title field. The operator then depresses 
the ENTER key to acknowledge, which is detected by Frocess Window. The 
widow 16 closed and the procedure call returns. 


d. Yes 
(yee Type: ) Fun@eron 
(2) Furpose: To prompt the user for a yes or no 


response. 
(3) Description of Parameters: 
Input: 3S, the string to title the prompt window. 
Output: The function returns true if Yes was 
selected 
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(4) Subroutines Called: 
Wndow. Open_Window 
Wndow.Pracess Window 
Wndow.Close Window 
(3) Process Description 
This function opens a window with menu bar, 
displaying the query in the window title field and the selections "Yes" 
or "NO" im the window. The operator selects with the menu bar, and 
Frocess Window returns a value of two if the selection was "Yes." The 
widow is closed and the function returns true if "Yes" was selected. 


e. NoFile 
(1) Type: Procedure 
(2) Furpose: To obtain an acknowledgement from the 
user after failing to find a file. 
(3) Description of Parameters: 
Input: S&S, the string to title the prompt window. 


Cues : The user has responded if the cail 
returns. 
(4) Subroutines Called: 
CRT sheen 
Suoport. OF 


Wndow. Open_Window 

Wndow.Frocess Window 

Wndow.Close Window 

(3) Frocess Description 

mS function opens a window to inform the 
operator that the desired file could not be found, then opens another 
window with a "DK" display. The operator then depresses the ENTER key 
to acknowledge, which is detected by the QE procedure. The widow 15 
closed and the procedure call returns. 


tise Build Status_Line 
{i) Type: Frocedure 
(2) Furpose: To construct a status line at the bottom 
of the video display. 
(2) Description of Farameters: 

Input: Nothing. 

Output: A status line containing information on 
the current communications port is displayed at the bottam of the 
Screen. 

(4) Subroutines Called: 

System. Insert 

Wndow. Write Status_Line 

(>) ProcesseDescr: given 

The procedure starts with a Blank status line and 
inserts substrings depending on the state of variables declared in this 
unit te construct the status line. Write Status_Line displays the line 
in the appropriate position. : 
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q. Check_keyboard 
(1) Type: Function 
(2) Furpose: To return a keyboard character, 
including special characters. 
(2) Description of Farameters: 


Input: The key is taken from the Readkey 
function. Output: The function returns the character 
read, or the keyboard scan code in the high byte if a special character 
is read (Readkey returned a zero). If no key is available, the 


function returns zero. 
(4) Subroutines Called: 
System.keyPressed 
System. Readkey 
(3) Frocess Description 
The function checks the Keypressed function and if 
true, calls Readkey to get the character. If Readkey returns zero, a 
soecial key has been pressed, and the scan code is read from Readkey. 
The character 15 returned, or the scan code in the high byte of the 
integer if appplicable. 


h. Check _Auxport 
(1) e@lepe: Fuactnon 
(2) Furpase: This function checks for a character at 
the currently selected communications port and returns a result. 
(3) Description af Parameters: 
Input: Nothing. 
Outputs: NUL af mo character 1s ready, or the 
Character if ane was read. 
(4) Subroutines Called: 
DataCom.RS222 Avail 
DataCom.RS232_ In 
(3) Frocess Description 
RESS32 Avail returns true if a character 15 
available in the receive io tae of the currently selected 
cammunications port. If true, the character is read through RS2i2 In, 
and passed to the LST device and Ascil_ file if public variables are 
set. fhe character is returned, or NUL if no character wac available. 


ie Find Environment 
Ga welypes Function 
(2) Purpose: To return a specified string from the 
Qperating system environment. This function typically is called to 
fina the COMSFEC=<path specification? string to locate a copy af the 
MS-DOS command processor. With this path information, a second copy of 
the command processor can be spawned to run programs from this one. 
(3) Description of Farameters: 
Heyotae = What 1s the parameter to be searched far. 
The environment contains strings of the form What=<text:. 
Output: ht spoumd,wethe <text>cpart oOfeethe 
environment string; if not, a NUL string. 


(4) Subroutines Called: 

System. MemwW 

System.Ftr 

System. Copy 

System. Length 

(3S) Process Description 

To run a batch file, a second copy of the MS-DOS 
command processor 1S spawned as a child process, with the batch file as 
a command tail. The secondary processor executes the batch file and 
terminates. A copy cof the command processor must first be located 
without previous knowledge. MS-DOS normally places a string citing the 
path to the COMMAND.COM on system initialization in an area of memory 
called the environment, along with other information from the 
AUTOEXEC. BAT file such as FATH information. A seqment pointer to this 
MS-DOS environment 1s placed 1n any program spawned from the original 
command processorin the child Frogram Seqment Prefix, at offset #002C. 
The enviranment starts an a segment boundary, so the offsed is 
automatically #0. This environment is the same one manipulated by the 
SET cammand from M5-DQS, and normally contains a string of the form 
COMSFEC=D: \directary\directory\command.com. To search the environment 
for the requested string, a pointer (Environ) is typed for the maximum 
size af the environment, 22K bytes and initialized from the segment 
value at offset fO02C. Each string in the environment is terminated by 
a NUL character (ASCIIZ). The environment area itself 1s terminated by 


an extra NUL. The environment area 1s searched, string by string by 
copying the strings into a local variable string, S. Each of these 
strings 1S examined for the search string What. If found, the 
remainder af the strino 1s returned, atherwise a NUL string. This 
function is duplicated in Unit Support to prevent circular unit 
dependencies. (Edwards, i987, p. 200). 


je Update Status 
(1) Type: Frocedure 
(2) Furpose: To display or refresh the current status 
of the callina program in a monitor window. 
(3) Description of Farameters: 

Input: Typically this procedure writes current 
information contained in a data structure by writing formatted strings 
to an open window, and then displaying the contents of the data as a 
string, or by mapping an enumerated data type to an array of constant 
strings to display the value. 

Output: A window display of the current status. 

(4) Subroutines Called: 

Wndow. Get Window 

Chiro s 

CRT. GOTOXY 

(3) Process Description 
This procedure is local to Modify_Entry. The, 


process depends on the caller ta open a properly sized window and to 
cet a variable called Status_ID to allow the status window to be 
accessed via Get_Window. Once reopened, the procedure writes the 
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current status information. The procedure then resets the working window 
to that of the caller’s Monitor_ID. 


kK. Modify_Entry 
(1) Type: Frocedure 
(2) Furpose: to display the current list of telephone 
numbers that may be dialed automatically, or the current program 
configuration parameters. 
(3) Description of Farameters: 

Input: 1, a selector. If I + 0 the phone list is 
to be modified, if I = 0 then the configuration parameters are 
modified. 

Output: The user is offered the opportunity to 
save the modifications to a file. 

(4) Subroutines Called: 

Update _Status (local) 

Gay. ClirSer 

CRT. GoToOXY 

system. UpCase 

system, Length 

Widow. Qpen_Window 

Wndow.Frocess Window 

Widow.Close Window 

(3S) Frocess Description 

Depending on I, the procedure opens a window of 
the correct size, and then displays the current parameters by mapping 
their values through array= of constant strings to display readable 
Values. The procedure then enters a loop for operator entry of 
Perameters ta be modified. The user then positions a menu bar over the 
appropriate selection and presses ENTER. Depending on the selection, 
the procedure prompts the operator for an input string, or displays 
another parameterized window and calls Frocess Window toa obtain the 
current selection. When ESC is pressed, the loop ends and the recorded 
modifications may be safec to a configuration or phone list file by 
save File. All windows are closed and the procedure returns. 
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APPENDIX N 


MAINTENANCE MANUAL FOR UNIT WNDOW 


A. UNIT WNDOW 


Le Configuration Information 
a. Language —- Turbo Pascal Version 4.0 
b. Compiler Version —- 4.0 
Ge Target Hardware - IBM PC/AT or close compatible 
d. Operating System — Microsoft MS-DOS (Version 3.x) 
e. Program Description 
This unit provides all window creation, memory 
allocation, display, menu bar processing, closure and memory 
deéallacation functions for the program Distrib. The unit was changed 
from an include file to a unit, but not otherwise changed from that 
originaliy developed by the author in (Edwards, 1987, pp. 30-98). The 
purpose descriptions are from the author. 


Ze Subroutines Contained 


a. SetColor 
(1) Type: Frocedure 
(2) Furpose: Set the EGA foreground color for text 
display. 
(2) Description of Farameters: 
Input: Color, the code to set the color to. 
Output: All future text will be displayed in the 
color selected. 
(4) Subroutines Called: 
Chte Tex tGadeor 
(S) Frocess Description 
The color selected is stored in the variable 
Foreground, anc a call 1s made to TextColor ta set the screen 
foreground color in accordance with the EGA monitor standards. 


b. Set BackGround 
(1) Type: Frocedure 
(2) Furpoce: Set the EGA background color far text 
display. | 
(2) Description of Farameters: 
Input: Colar, the code to set the color to. 
Output: All future text will be displayed on a 
background of the color selected. 
(4) Subroutines Called: 
CRT. TextBackGraunc 


(3) Process Description 
The color selected is stored in the variable 
Background, and a call is made to TextBackGround to set the screen 
background color in accordance with the EGA monitor standards. 


G. Get _Dummy_Screen 
(1) Type: Frocedure 
(>) Furpose: Force the Screen variable to point to a 
dummy area on the heap. 
(3) Description of Farameters: 
Inputs Screen, Screen_New (Public variables in 
mmr Ss Unit. 
Output: Screen and Screen_New 
(4) Subroutines Called: None. 
(3) Frocess Description 
Screen is initialized to point to the the start of 
the display area for the color or monochrome monitor in 
Init_Window_Info. This procedure saves this pointer in Screen_New and 
then fills Screen with the same information. 


d. Get Real Screen 
(1) Type: Frocedure 
(2) Purpose: To undo the work of Get_Dummy_Screen 
(3) Description of Farameters: 
Inputs Screen, Screen_New {Fublic variables in 
Crees unit. 
Output: Screen and Screen _New 
Subroutines Called: None. 
(3) Process Description 
Screen is initialized to point to the the start of 
the display area for the color or moanachrame monitor in 
Init _Window_Info. Get _Dummy_Screen redirects the pointer Screen ta a 
dummy area on the heap. This procedure restores Screen to its criginal 
setting. 


e. Build Borders 
(i) Type: Frocedure 
(2) Purpose: Build a border of single or double lines 
araund a window. 
(3) Description of Farameters: 

Pre eres Lines, specifying a single oar double 
border. Active Window, a public pointer in this unit to a window 
cantrol bleck containing information about the size and current 
position of the window to be bordered. 

Output: The output 1S a border written to the 
display to outline the window. 

(4) Subroutines Called: 

General.FillWord 

system.Length 


(3) Process Description 
This procedure determines the window limits 
contained in the window control block pointed to by Active Window, and 
places standard symbols in screen memory to outline the window. 


Lie Open_Window 
(1) Type: Function 
(2) Purpose: Open a window on the screen and draw a 
border around it. (Su), 
Description of Farameters: 
Input: Xi, Yl, X2, Y2 are the window coordinates; 
Flag i5 a bit mask of allowed functions for this window (borders, GOTO 
allowed within the window, relocatable and can be closed from the main 
program): Name is the window title to be displayed. 
Dutput: O - window opened successfully; 1 - 
Invalid window coordinates; 2 - not enough memory (failure). 
(4) Subroutines Called: 
System. GetMem 
system. MemAvail 
system.Move 
Widow. Build Borders 
(3) Process Description 
After checking the input parameters for valid 
coordinates and sufficient memory, the memory required to save the 
portian of the screen displayed by the window 15 allacated from the 
heap and the window 15 drawn with the appropriate colars and borders. 
Active Window 15 advanced to this new window after adding it to the 
linkec list af open windows. 


ay Close Window 
(1) Type: Function 
(2) Furpose: To close the window pointed to by 
Active _ Window, 
(2) Description af Farameters: 


Input: Active _Window 15 a public pointer managed 
by this unit, and refers te the currently open window. 
Dutput: The window is closed, and Active_Window 


is redirected ta the previous window in the linked list of open 
windows. The function returns FALSE if successful, TRUE if an attempt 
was made ta close a window with Active_Window"=NIL (no more windows 
open). 
(4) Subroutines Called: 
system. FreemMen 
system. Move 
Window. Build Borders 
Widow. SetBackgraund 
Widow. SetColor 
(3) Frocess Description 
After checking the input parameters for valid ~ 
coordinates and sufficient memory, the memory required to save the 
Portion of the screen displayed by the window is allocated from the 
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heap and the window is drawn with the appropriate colors and borders. 
Active Window is advanced to this new window after adding it ta the 
linked list of open windows. 


h. Save_Window 
(1) Type: Function 
(2) Furpose: This function saves the image of the 
current window, closes it, and returns a pointer to the saved window in 
memory. 
(3) Description of Farameters: 
Input: Active_Window is a public pointer managed 
by this unit, and refers to the currently open window. 
Output: A pointer to the saved window. 
(4) Subroutines Called: 
Wndow. Open_Window 
Wndow.Close Window 
(3) Process Description 
W, a loca variable 1S pointed to the same 
window Block as the current Active Window. The procedure then opens a 
window with parameters identical te the current window by using the 
lecal pointer W to dereference the current window parameters. The act 
of opening a window cf the same size and parameters has the effect of 
saving the original window. Active Window now points to the new 
window. If the cail to Open_Window fails, a NIL pointer is returned 
from Save Window and the function exits. Otherwise, parameters from 
the saved window are transferred to the Active_Window block, W is 
redirected ta the newly updated current window, Active Window is 
retracted to the saved window and the window that overlaid it 15 
Closed. The function returns the pointer to the saved block. 


1% Restore Window 
LL) ibe rocedure 
() Furpose: 
(3) Description of Faerameters: 
Imput: A pointer to a saved window. 
Output: TRUE if the function was unable to 
restore the window. 
(4) Subroutines Called: 
Wncow.Open_Window 
Wndow. SetHackGround 
Wndow. SetColor 
(2) Frocess Description 
The function first uses the window pointer to set 
the video display colors. Then, an attempt is made to apen a window of 
the same size as the saved window. If this fails, the function returns 
true. Otherwise, the Active_Window parameters are set to the saved 
window, the saved window is added to the window control block chain, 
and Active Window is reset to point to the restored window. 


ae Get _ Window 
(1) Type: Function 
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(2) Furpose: To bring a window to the top of the 
screen. 
(2) Description of Farameters: 
Input: Which, the ID of the window to be 
surfaced. 
Output: False if the operation succeeds, True if 
the ID did not exist. 
(4) Subroutines Called: 
Wndow.Get_Dummy_Screen 
Wndow_Restore_Window 
(3) FProcess Description 
Get Window follows the backlinks from 
Active Window back until the ID of Which is found or the links end at a 
NIL. If found, Move_Window is used to copy the desired window into a 
heap area obtained by Get_Dummy_Screen. The window is then placed on 
the screen by Restore_Window. 


Ks Move_Window 
(i) Type: Function 
(2) Furpose: To move a current window by a relative X 


and a. 
(3) Description of Farameters: 
Input: X, Y the direction and amount to move the 
window. 
Dutput: False if the operation succeeds, True if 


the coordinates are invalid. 
(4) Subroutines Called: 
CRT.Window 
Widow. Exchange 
(3) Process Description 
Move Window checks the values of X and Y and then 
copies the window incrementally in the desired direction(s). The built 
in procedure Window is then used ta enable the new window location for 
display. 


hs Write Status 
(1; Type: Frocedture 
(2) Furpose: To display a string on the 25th video 
display line with a video attribute. 
(2) Description of Farameters: 
[meme : S, the status string; Attrib, the display 
attribute. 
Output: The string 1s written to the display. 
(4) Subroutines Called: 
System.Length 
(3) Process Description 
The procedure first concatenates the attribute 
oyte with the display character and then writes the combination to the 
screen as a word, using the Screen pointer. 
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M. Process Window _Menu 
(1) Type: Procedure 
(2) Furpose: to display and process a menu in the 
current window. 
(3) Description of Farameters: 
Input: Menu is a constant that must consist of an 
integer, followed by an array of string constants of length Menu. 
Output: The function returns a byte reflecting 
the index of the i’th string in the constant array. A zero is returned 
if ESC is pressed. 
(4) Subroutines Called: 
Set Highlights (local) 
GoDown (local) 
GoHome (local) 
GeEnd (local) 
GoUp (local) 
Canoes ¥ 
CRT. TextBackground 
CRT. TextColor 
Support. Max 
Support.Min 
System. Length 
Wndow. Build Borders 
(3S) Frocess Description 
This function relies on a side effect of the data 
structure, and assumes that the array of strings representing the 
selections to be displayed in the window immediately follow Menu. By 
obtaining a memory address for Menu, the function opens a window of the 
proper size and then uses this implementation specific information to 
dieplay the strings. The function then oaffers the operator the menu 
cer movement options oan the status line to make a selection. 


APPENDIX O 


MAINTENANCE MANUAL FOR UNIT XMODM 


A. UNIT XMODM 


ite Configuration Information 
a. Language —- Turbo Pascal Version 4.0 
b. Compiler Version - 4.0 
Ee Target Hardware - IBM PC/AT or close compatible 
d. Operating System - Microsoft MS-DOS (Version 3.x) 
e. Program Description 
This unit handles all requests for Xmodem protocol 
packet and file transmissian and reception. 


fide Subroutines Contained 


a. String _to_Buf 
(i) Type: Frocedure 
(2) Furpose: Convert~a string of length 128 to an 
Xmodem buffer of the same length. 
(3) Description of Farameters: 
Input: “S) aelce’ chat acter Str ing. 
Output: buf, an Xmodem buffer. Short strinas are 
padded with NUL characters. 
(4) Subroutines Called: 
System.Length 
(3) Frocess Description 
The string is treated as an array of characters, 
and each 1S read into the same position in the buffer. 


ayp Buf to String 
(1) Type: Function 
(2) Furpose: Convert a 128 character buffer into a 
string of the same length. Nonprinting characters are replaced with 
Spaces. 
(2) Description of Farameters: 
Input: but, the 12e character buf fer of 
characters. 
Gobeil se, ser 128 character string: 
(4) Subroutines Called: None. 
(5) Frocess Description 
The string is treated as an array of characters, 
and each character in the buffer, another array of compatible type 15 
read Sinte “the Seana Spaces are substituted for mnonprinting 
characters. 
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Cc. ReadAux 
om) Siivoe: Fitmetion 


(2) Purpose: Returns a character from the currently 
selected communications port, and also writes the character to the 
monitor file and monitor window if selected. Provides a timeout 


function and a keypressed abort. 
(2) Description of Farameters: 
Input: Seconds, the number of seconds to wait for 
a character before returning with a timeout indication. 
Output: A word with the received character in the 
low order byte, value 256 (timeout) otherwise. 
(4) Subroutines Called: 


CRT. Delay 

CRT.Keypressed 

Cat. 1extGelor 

CRT. BackGround 

DataComm. RS232 Avail 

System. DEC 

(3S) Frocess Description 

A factor is multiplied by the number of seconds to 
wait, and then used in a fast loop ta test for a received character or 
operator keypress. Either event breaks the loop. If a character i165 
available, the function returns the character. ia iemd tor. 1 Deis 
greater than zero, a monitor window 1s open and the character 15 
written ta the cursor poetitian there and toa a monitor file. Otherwise, 
a timeout imdicator is returned. 


d. WriteAux 
(1) Type: Fracedure 
(2) Furpase: Sends a character to the currently 
selected communications port, and alsa writes the character ta the 
monitor file and monitor window if selected. 
(2) Description of Farameters: 
Input: Ch, the character to be sent. 
Qutput: The character 156 sent and displayed if 
the Monitor _ID switch is greater than @. 
(4) Subroutines Called: 
Chaim 1 ext Col or 
CRT.BackGround 
Datacemenoegsc OUT 
(3S) Frocess Description 
The character is sent out the communications part 
by AS222 Out. If Monitor_ID is greater than zero, a monitor window 15 
apen and the character is written ta the cursor position there anc to a 
monitor file. 


e. Send_String 
(1) Type: Frocedure 
(2) Furpose: To send a string out the currently 
selected communicatians port. 


(3) Description of Farameters: 
Input: S, a tetaiwen 
Output: The string is sent to the port. 
(4) Subroutines Called: 
DataCom.RS232 Out 
System.Length 
(S) Process Description 
The string is passed, character by character, to 
the communications port. 


ae Receive_Record 
(1) Type: Function 
(2) Furpose: Receive an Xmadem packet from the 
currently selected communications port. A building block for file and 
command transfers. 
(2) Description of Parameters: 

Lig itnte: Buf, the data portion of the packet: 
Blocksize, the size of the data buffer; seconds, the number of seconds 
to wait before timing out on reception; and expected block, the ordinal 
number af the next Black expected from the sender. 

Dutput: Buf is filled with the data packet 
contents if successfully received; errors indicates the number of 
errars encountered in receiving the packet. 

(4) Subroutines Called: 
Xmodm. ReadAux 
Amodm. Wri teAu:: 

(3) Process Description 

Receive Record first listens for the SOH character 
Slgnalling the start of an Xmadm packet from the part via ReadAux, 
praesing the numbert af seconds to wait on the call. The function exits 
immediately with an appropriate status cade if a CAN, EOT or unexpected 
character is received. IF SOH 1s received, the function then assembles 
the Xmadem header, calculates a running checksum on the incoming data, 
and cetects the checksum character. It then checks the packet for 
match between the block number and its inverse (packet locations two 
and three, respectively), an incorrect block number compared to the 
input expected black, anda different checksum from that received and 
provides the acprapriate status on return for each. If the packet was 
received correctly, an ACE 1s sent to the transmitter. If not, a NAR 
26 sent. 


g. Get Buffer 

(1) Type: Frocedure 

(2) Furpese: Reads a buffer of size blocksize from a 
previously apened file. Fads the buffer with NUL characters if smaller 
than requested, 

(3) Description of Farameters: 

Input: Buf, the buffer ta fill; bBlocksize, the 

size of the buffer in bytes: XferFile is a private file variable in 
thie imal =. 


Output: DU eeemtalifcmecne mext file butter. 
(4) Subroutines Called: 
System. BlackRead 
(3S) Frocess Description 
The low level file read procedure BlockRead is 
used to read an untyped buffer. The procedure reports the number of 
bytes read. If less than the buffer size, the remaining bytes are 
filled with NULL characters. 


h. Send Record 
(1) Types Function 
(2) Purpose: Send an Xmodem packet out the currently 
selected communications port. A building block far file and command 
transfers. 
(2) Description of Farameters: 

Input: Buf, the data portion of the packet; 
Blocksize, the size of the data buffer; seconds, the number of seconds 
to wait before timing out on acknowledgement; Block, the ordinal number 
of this packets and errors, a count of the number of errors on the 
attempt to return to the calling program. 

Qutput: Buf 1s unchanged and is a VAR parameter 
for efficiency: errors indicates the number of tries to send the 
packer. 

(4) Subroutines Called: 

DataCom. Furgeline 

Amodm. ReadAux 

Xmodm. Wri teAux 

(3) Frocess Description 

send Record first calculates a checksum value for 
the data in the buffer and then sends the SOQH character signalling the 
Start of an Xmodm packet ta the port via WriteAux, followed by the 
block number and 1ts inverse, the data and the calculated checksum 
value. FurgelLine 1s called to clear the receive buffer to prevent an 
erroneous interpretation of an earlier character received. ReadAux is 
then cailed ta ilisten for the receiver’s acknowledgement. Status 1s 
set accordingly. Finally, the keypressed function is checked to an 
operator interrupt and status is updated. Status is returned as the 
function result. 


l. sync_Receive 
Cloewivyees “Punct.op 


“7 \ 


-) Purpose: Used to synchronize to receive Xmodem 


packets. 
(2) Description of Fiarameters: 
Input: Seconds, the number of seconds to wait 
between sending sync characters (NAF for Xmodem); and sync_character, 


the sync character to send. 
Output: A status code indicating synchronization, 
timeout oar operator keypress. 
(4) Subroutines Called: 
CRT. KeyPressed 
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DataCom.FurgeLine 

DataCom.RS232 Avail 

xmodm. Wri teAux 

(3) Process Description 

sync_Recieve calculates the number of ten second 
intervals in seconds is calculated. The receive line 1s cleared and 
the sync character 15s sent. The function then loops waiting for a 
character to be received or the operator to press a key for the time 
indicated by seconds, sending a new sync character every five seconds. 
The function does not check the received character, only whether or not 
one was received in the allotted time. A status code is returned as 
the function result (packet acknowledged, negative acknowledge, 
receiver requests to cancel the transaction, timeout or operator 
keypress). 


a Sync_Send 
(1) Type: Function 
(2) Furpose: Used toa synchronize to send Xmodem 
packets 
(2) Description of Farameters: 
lnpte. Seconds, the mumber of seconds to wait 
between sending sync characters (NAEK for Xmodem). 
Output: A status code indicating synchronization, 
timeout or operator kevprescs. 
(4) Subroutines Called: 
CRT. KeyFressed 
DataCom.FurgeLine 
Xmodm. ReadAux 
(3) Process Description 
Sync_Send clears the receive line with FurgeLine 
and then calls ReadAux to detect s received character. A status code 
is returned as the function result (sync character received, checksum 
sync received, receiver timed out or a keypress was detected). 


k. Send _EOT 
(i) Type: Frocedure 
(2) Furpose: To signal the end of a data transfer for 
the Xmodem protocol. 
(3) Description of Farameters: 
Input: Status, to be changed ta reflect the 


outcome of the call; and Suppress EOT, a flag set to suppress the 
normal EOT on an Xmadem data transfer. Used to concatenate file 
transfers. | 

Qutput: Status, reflecting transmission 


completed, or a timeout error (or too many errors). 
(4) Subroutines Called: 
xmodm. ReadAux 
xmodm. WriteAux 
(3) Process Description 
Suppress EOT is first checked to see if the EQT 
will be sent. If TRUE, the EOT is not sent and the procedure returns a 


+ 
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completion status. This allows successive Xmodem transfers without 
encountering the normal flow control reversal. Otherwise. EOT 
characters are sent every ten seconds until acknowledged or the 
accumulated errors exceed RetryMax, a constant private to the Xmodm 
igo A timeout status 15 returned if errors were exceeded, a 
transmission complete status if EQT was properly acknowledged. 


ive Send_CAN 
(1) Type: Procedure 
(2) Furpose: Used to inform the other side of the 
communications link that the Xmodem operation is to be aborted. 
(3) Description of Parameters: 
Input: None. 
Dutput: Two CAN characters are sent out the 
communications port. 
(4) Subroutines Called: 
Xmodm. WriteAux 
(3) Frocess Description 
Two CAN characters are sent out the communications 
wert. 


Mm. Update_Status 
(1) Type: Frocedure 
(2) Purpose: To display or refresh the current status 
of the calling proaram in a monitor window. 
(2) Description of Farameters: 

Input: Typicaily this procedure writes current 
information on the status of a data transfer, the number of bytes = and 
blocks sent or received, and the count of the number of errors 
accumulated on the transaction in a formatted display. 

Output: A window display of the current status. 

(4) Subroutines Called: 

Wndow. Get Window 

CRT. GOTOXY 

(3) Process Description 

This process 1s used several places in this unit, 
and operates identically in each. The procets depends on the caller toa 
open a properly sized windaw and ta set a variable called Status_ID to 
allow the status window to be accessed via Get_Window. Once reopened, 
the procedure writes the current status information using variables 
locai to the caller. The procedure then resets the working window to 
that of the caller‘s Manitor_ID. 


ne Xmodem_Xfer 
(1) Type: Functian 
(2) Furpose: Ferform an Xmodem file transfer. 
(2) Description of Farameters: 
Dipti seoectGw tate tO eed a file, FALSE to 
receive; and Plocksize, the size of the data buffer to use. 
Dutput: A status code indicating success cr what 
problem was encountered. 
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(4) Subroutines Called: 

Update.Status (local to this function) 

CRT abd Sots 

CRT. Delay 

CRT. GoToXY 

CRT.KeyPressed 

CRT. Readkey 

DataCom.RS Eight _Bits 

General. Beep 

System. BlockWrite 

System. Assign 

System. Reset 

System.Rewrite 

Xmodm. Sync_Send 

Xmodm.Get Buffer 

Xmodm. Send Record 

Xmodm.Sync_ Receive 

xmodm. WriteAux 

Wndow.Close Window 

Widow. Open_Window 

(3) Process Description 

The public variable Monitor_Transfers is checked 
to see if 2 monitor window is to be opened to display the characters 
transfered. If TRUE, the window and a monitor file are opened. The 
status window is then opened and unchanging field names written. 
RS Eight Bits is called to insure the communications port passes eight 
bit data, regardless of its settings. After initializing the variables 
used to report statue, the function branches depending on whether a 
file i585 to be sent or receivec. If Send is TRUE, Sync_Send is called 
to detect sync characters from the receiver. If Sync_Send times out, 
the transfer is aborted and the timeout is reported to the caller. IF 
sync is detected, file buffers are abtained from Get_Buffer and sent 
Vie Send Record until EOF is detected or too many errors are 
encountered. If successful, EOT 1s sent to the receiver to signal the 
end of transmission. The KeyFressed function 1s monitored at several 
points, and will cause an immediate abort with status returned to the 
cal Laws If Send is FALSE, Sync_Receive is called to send sync 
characters. If a timeout 15 mot encountered, Receive Record is called 
repeatedly to abtain received buffers and monitor status. The transfer 
terminates on receipt of EOQT (competion), too many errors detected or a 
keypress inmdication, with appropriate status returned ta the caller. 
Uodate Status is called several times throughout each bGranch to 
indicate progress or report errors. The transfer file is then closed, 
as are the monitor and status windows. RS Imitialize is callegmiee 
reset the communications port to its previous word length. 


QO. Command _Xfer 
(i) Types Function 
(2) Purpose: Transfer a single command packet. 


ie 


o! a. 


(2) Description of Farameters: 

Mote: ocema@, TRUE to send™ a packet, FALSE to 
receive a packet; Buf, the data buffer send or received; Blocksize, the 
size of the data buffer. 

Output: A status code indicating success or what 
problem was encountered. 

(4) Subroutines Called: 

Update.Status (local to this function) 

Ghd. ole oer 

CRT.Delay 

CRT. GoToOXY 

CRT.KeyFressed 

CRT. Readkey 

General.Beep 

xmodm. Sync _Send 

Xnodm.Get_Buffer 

xmodm. Send Record 

Xmodm.Sync_ Receive 

Xmodm. Wri teAux 

Wndow. Close Window 

Wndow. Open _Window 

(3) Frocess Description 

This function operates similarly ta Xmodem_Xfer, 
except that a single Xmodem packet is transferred. The public variable 
Monitor Transfers is checked to see if a monitor window is ta be opened 
to display the characters transfered. If TRUE, the window and =the 
monitor file are opened. The status window 1s then opened and 
unchanging field names written. RS_Eight_Bits is called to insure the 
communications port passes eight bit data, regardless of its settings. 
After initializing the variables used to report status, the function 
branches depending on whether a file is to be sent ar received. If 
Senc is TRUE, Sync_Send is called to detect sync characters from the 
receiver. If Sync _Send times aut, the transfer is aborted and the 
timecut 16 reported to the caller. IF sync is detected buf is sent via 
Send Recerd. If successful, EQT is sent to the receiver ta signal the 
end of transmission. The FeyFPressed functian 1s monitored at several 
noints, and will cause an immediate abort with status returned to the 
eerie. if Sena IS “FASE, “Syne Receive 1s called to send sync 
characters. If a timeout is not encountered, Receive _ Record 1s called 
to obtain received buffer and monitor status. The transfer terminates 
an receipt of EOQT (competion), too many errors detected or a keypress 
indication, with appropriate status returned 1 the Ccativer. 
Usdate Status 1s called several times throughout each branch to 
indicate pragrese or report errors. The monitor file 1s then closed, 
as are the monitor and status windows. RS_Initialize 1s called to 
reset the communications port to its previous word length. 


p. Transfer File 
(1) Type: Frocedure 
(2) Furpose: Ta obtain the name of the file ta be 
transferred from the lacal operator. 


—— =—_- 
lie yi 


Cpe er: 
=_ = 


(3) Description of Parameters: 
Input: Send, TRUE if a file send is desired, 
FALSE ta receive a file. 
Output: Monitor display. 
(4) Subroutines Called: 
Window. Open_Window 
Wndow.Close Window 
Support.NoFile 
System. Assign 
System.Length 
System. Reset 
System. Rewrite 
System. Upcase 
(3) Process Description 
Transfer File first opens a window to ask the 
operator what filename is to be transferred. The transfer is aborted 
and NoFile is called if the file 15 not found or cannot be opened. 
Depending on Send, the file 1s opened for reading or writing and then 
Xmodem_Xfer 1s called to accomplish the transfer. 


‘ol Respond_by_File 
(i) Type: Frocedure 
(2) Furpose: To allow the remote Slave to send the 
results of a program or other message- contained in a file ta the 


(3) Description of Farameters: 
Input: Response, the file to be sent. 
Output: None fram this procedure. 
(4) Subroutines Called: 
Widow, Open_Window 
Wndow.Close Window 
System. Assign 
System.Length 
System. Reset 
system. Rewrite 
System. Upcase 
(3) Frocess Description 
Transfer File first opens a window ta ask the 
operator what filename is to be transferred. The transfer 15 abortec 
if the file 15 not found or cannot be opened. Depending on Send, the 
file is opened for reading ar writing and then Xmodem_Xfer is called to 
accomplish the transfer. 


Fis Get Response 
(1) Type: Function 
(2) Furpose: To allow the Master to receive file 
responses from a program completed by the Slave. 
(3) Description of FParameters: 
Input: BlockSize, the size of the Xmodem buffers. ” 
Output: Status code of the call. 
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(4) Subroutines Called: 

CRT. KeyFressed 

CRT. Readkey 

DataCom.RS_Eight_Bits 

DataCom.RS Restore 

Xmodm.Sync_Receive 

Amodm.Kecelve_Record 

Xmodm. Wri teAux 

System. Assign 

System.Clase 

System.Rewrite 

Wndow. TextColor 

Widow. TextBackGround 

(3) Process Description 

For this function, the monitor window is set to 
the current window, and the monitor file is directed to NUL, the bit 
bucket. This satisfies ReadAux and WriteAux so that the display will 
Operate properly without creating an unnecessary file. Rolelgne sorts 
is called to insure the communications port passes eight bit data, 
regardless of its settings. After initializing the variables used to 
report status, Sync_Receive 15 called to send sync characters. If a4 
timeout is mot encountered, Receive Record is called to obtain received 
buffer and monitor status. The transfer terminates on receipt of EOT 
(competion), too many errors detected or a keypress indicatian, with 
appropriate status returned to the caller. Update Status 15 called 
several times throughout each Branch ta indicate progress or report 
errors. RS Initialize is called to reset the communications port to 
its orevious word length, and the dummy manitor file 1s closed. 


S. Xmodm Unit Initialization 
(1) Type: Unit Initialization Frocedure 
(2) Furpose: To initialize the unit on loading. 
(3) Description of Farameters: 
Input: Suppress EFQT, Monitor_Transfers. 
Output: Suppress_EQT, Monitor_Transfers. 
(4) Subroutines Called: None. 
(3) Frocess Descriptian 
Suppress E0OT and Monitor_Transfers are set toa 
their default values. 
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DATACOM.FAS 


This is the unit that accomplishes all interface to the 
communications ports for character, string and buffer 
transfer. 
and provides interrupt interrupt service routines for 
character receive. 


References: 


Interface: 


Multiple 
al 


Low 


Frocedures: 


level 


HART /FIC 


Declarations: 


It alsa initializes the communications ports 
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(* Modification history 


& Sep 89 - addec RS_Eight_Bits to change the port data work 


width to eight bits for Xmodem protacol operation. 
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UNIT DATACOM: 
INTERFACE 


USES General, CRI, Dos; 


CONST 
eari = i; 
COMMS = 2; 
COMS = 3; {not implemented, but MS-DOS knows about them; 
COM4 = 4; {nat implemented, but MS-DOS knows about them} 


(HE KHL KKH KKK KHEHKEEEEEERE Start Edwards Excerpt #44 HHEHHEKHEKHEEE) 
TPE 
RS Baud = (8110,B150, 8200, 8600, 8R1200,B2400, B4800, 89600, R1i9200, 
BaB400 ); 
RS Farity = (None,Qdd,Nevermind,Even);: 


RS Config = Record 
Stop, 
LS aaa nays) 
Alias : stringl10O]; 
Speed : RS Baud; 
foaity Gime Parity: 
TIRGONG : Bytes 
Installed : boolean; 

end: « RECORD 3 


poruneange = Ceril..COM2: 


VGR 
Seraenc com + Byte; «oublire, specifies current Port for 
cammand or file transfer; 
ComPoart : ARRAY € FortRange J OF RS Confia: 


Fracedure RS_Breaks 
£ This procedure inétructs the currently selected data communicatians 
port to send a break signal: 


Function RS&SI2 Avail:Boolean; 

iThis fumctian returns TRUE if there are characters to be read from 

Seeeeoeoe port. Iltis analogous ta the Turbo function KEYPRESSED fer 

the keyboara, 

a, 

(* Reprinted with extensive modifications from Advanced Techniques in 
Turbo Fascal by Charles Edwards, by permission of Sybex, Inc. 
Cooyright 1987 Sybex, Inc. All rights reserved. 
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(HHHHEHERERHHEKHHEHEE Continue Edwards Excerpt Xe HHEKHHHHHHHREHHEH) 
Function RS2e2 Ini bine: 

(The AUX device is set to point to this function for input. It returns 
the next character received from the RS2ZS2 port. 


%. 
/ 


Frocedure RS2s2 Out ( Faram : Char ); 
{ Sends the character to the RS232 port. + 


Procedure RS_Initialize(Com: Byte; Speed: RS_Baud;Parity:RS_ Parity; 
stop,Length: Byte); 


cy 


Initialize communications port. Vector the appropriate interrupt to 
point to our interrupt service routine. Initialize hardware 
handshaking lines. Store current settings in a data structure for 
restoration. 


Poptits fer ~ The RS222 port to be handled 
Speec - The baud rate of the line 
= ~ The parity of the line 
Stap ~ The number of stop bits 


Length - The mumber af data bits 


a) 


ca 


ocecure RS Cleanuo; 


CTRis procedure should be calied on exit to disable interrupts on the 
= pert and reset everything ta ite default state. 


| 


(# Reprinted with extensive modifications fram Advanced Techniques in 
Turbo Fascel by Charles Edwards, by permission of Sybex, Inc. 
EOpyriant 2727 B/E ex, Inc. Ali rights reserved. 

KEREKRELEREEEERERESZEERESY = = En Edwards Excerpt EEE KKEEKKEKEKREREERERHREERSE) 


'racedure FurgeLline; 
F This function clears the receive buffer and UART receive buffer for 
the currentiy selected part: 


Function Cannected : boolean: 
iat 


{ Returns TRUE if the Data Set Ready line is true, signalling hardware 
handshaking 3 


Function RS2it2 peek : Char; 


of 


Added to allow nondestructive read of the currently selected part 
input buffer for xmodm.Sync_receive: 
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Paeecaire Send String ( S : String ); 

{ Send a string out the currently selected RS232 port 
Frocedure RS_ Restore ( COM : byte ); 

t Reinitialize the COM Fort +: 


Frocedure RS_Eight_Bits; 


{ Adjust the comport for eight bits regardless of current 


re 


1 


J 


setting 


%. 
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IMFLEMENTATIO 


(HEHEHE KEKE KEKE EHEREKEREE Start Greenberg Extract KEKKHHHKHHHHHEHHKKHHEES) 


CONST 


ra ors cs 


N 


UART declaratians 
Interrupt Enable Register 3 


1. 
2 
+ 


Or one or more of these bits to enable the respective interrupts } 
IER_RDA = #01; «t Receive Data Available Int Bit ---- --- 1s 
IER_THRE = #02; «¢ Transmitter Hold Register Empty Bit ---- --i- } 
IER RLS = #04; ¢ Receive Line Status Int Bit ==" 1S 
TER_MS = $08; ¢ Modem Status Int Rit ---—~ | [aa 
{ Interrupt Identification Register 3} 

{ Check the lower four bits to see what interrupt called } 
IIR_RLS = #05; ¢ Receiver Line Status Interrupt ---- = )0ie 
ITIR_RDA = #04; ¢ Receive Data Available ---- =e 
LIR_THRE = #02; { Transmitter Hold Register is Empty -—--— —2 me 
TIR_PEND = #01; «t zera if * any * interrupt pending ---- =e 
IIR_MS = #00; { Modem Status interrupt ---- =00s 
{t Line Cantroai Register : 
{ Gr one or more of these bits to select comm port parameters :} 
Ben Cane = $00; << Five bit character jo  -§ #2 oa OO 
LCR CEHRS = £01; << Six bit character = ~ |~ S02] Sees QOL 3 
Beh eerie = #02: { Sever bit character  (=s]Saae LO 
ee Orin = 02: << EIQGHE™ DIT Cnavaeeer 0 lean il 
EG ee ea = £00; <{ Qne stop bit ---- -0Se 
LGR SiGe = #04; <¢ Two stop bits ---- =i 
LCR _NOFARITY = £00; «¢ No parity —--- (Soe 
LCR FPARITYEN = #08; ¢ Enable parity (see SFARITY and 

EPFARITY ---= (-oaee 
LCR@EPARITY ="F10; 4 EVem pamity bic ---| See 
LCR SPARITY = 2255 (Stic sean --|- =e 
LOR_BREAK = $40: ¢{ Transmits a BREAK (space) -l--_ —==Sae 
LOR_DLAE = #80; ¢ Divisor Latch Access bit {-4S— =e f 

(* Reprinted from "TSRCOMM.ASM A Replacement for Interrupt 14" By Ross 


Greenberg, by permission of the author. 
All rights reserved. 


if, 
Creenberc. 
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Copyright 1987, Rossii 
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(KKK KKKKKKEKEKKRKEEKKRERE Continue Greenberg SHELF ACT KHEKKKEKKKKEKKKKEKKKEKEKESE) 


< Madem Control Register 3 
{ Or one or more of these bits to signal the modem } 


MCR_DTR = #01; ¢ set Data Terminal Ready = ---- --- ee 
Hem nS = #02; {¢ set Request To Sent epee mae! or et 
em OUT = #04; { Output 1 (resets Hayes modem) siurgsas ie) aaa 
Hem CUT 2 = #08; ¢ Output 2 (allows comm 

port interrupts) See .F 
Hem LOOP = #10; <¢ Loopback test ae ee 
{ Line Status Register 3; 
{ Test one ar more of these bits to determine comm port status 3 
LSR_DATA =~ Oi) eet seis avatlable WS  o=-"---- es 
LSR_OVERRUN = #02; #4 overrun error bit Garnet oe 
pore FARTTY = #04: << parity error bit wee l= F 
LSR_FRAMING = #08; «¢ framing error bit a ee | ie 
LSR_BREAK = #10; <i BREAK detected bit eee ie as 
mens THRE =e ee lbansmpeerolding Register Empty --i- ---- 3 
WSR_ISRETY = $40: ¢ Transmit Shift Register Empty iam iae es 
< Modem Status Register 3 
. Test one ar more cf these bits to determine modem actians ?; 
femme ela = cle Gelta Clearwwe Send = = ------ 1 3 
MSR_DEL DSR = #02; ¢ delta Data Set Ready =<. 
feoevoeom.! = 045 i Ihallimewecdge of Ring Indicator -=-—--1-- } 
MSR_DEL_SIGD = £08: ¢ delta Receive Line Siqnal Det Sa 7 
Wer CTS = $10; <¢ Clear To Send melee 
PoneuSk = $20; <¢ Data Set Ready =) en, 
MSF RI = $40; «¢ Ring Indicator - entire ring Sh ae, 
MSR DCD = #80: << Data Carrier Detect - on line (>= 7 


(* Reprinted fram "TSRCOMM.ASM A Replacement for Interrupt 14" by Ross 
Mi. Greenberg, by permission of the author. Copyright 1987, Ross M. 
Greenterc. All rights reserved. 

KEKE EREKE PEF EEK KREKEKEFHE OED Greenberg Excerpt KEKEKEKEKERKKERHKKHE HERS) 
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(HEKEKHEHEHHHKEREHEH Start Edwards Excerpt *#4 HHH HHHKHHHHHHEHHEH HEH HEEE) 


< IRO Lines 3} 


IRGline : ARRAY C FPortRange J] OF byte = ( 4, 2); 
TYFE 
INSB250 = record 


THR : word; <¢ Transmit Holding Register 
RBA : word; <«¢ Receive Holding Register 
IER : word; { Interrupt Enable Register 
IIR : word; ¢ Interrupt Ident Register 
LCR : word; ¢ Line Control Register 

MCR : word; <¢ Modem Contro Register 

LSR : word; <¢ Line Status Register 

MSR : word; ¢ Modem Status Register 

DEL : word: ‘teDiwrsorewatehesr 

DLM : word; t¢ Divisor Latch MSE 


we YZ ow bP a OY Ow GY Os 


END: 


RS Buffer_Size = 4093; (Size of Buffer - 1...Change this if you 
want a different buffer size} 


{ 8259 FIC declarations +} 


ISR = #20; <¢ Interrupt Service Register 3; 
IMA = $21; ¢ Interrupt Mask Register 3; 
IR@4 Mask = FEF: < Enable for COM! 3} 

IRQS Mask = $F7: <¢ Enable far COM? 3} 


{ IBM FC comm port interrupt vectors ; 
COM1 INTR = £00; 


COM? INTR = #08; 


RoOmerroOr 42a be = so 
ChE DSR : Boolean = "Aloe. 
Chk_ CTS +: boolean = FALSE; 


Regs : Array (1..2) 0f [Nsees0)— 
((THR: $3F8: RERSSSFBe TER8eSP9s fA eee 
MCR: $3FC: LSASSSFD: MSRSSSFE; DEES ees Bien 
(THR: $2F@: REAR: S2F6: LERSSSP9: 1 oo 
MCR: $2FC: LSA: S2FD: MSRIS2FE: DEBrs2Fa, Det. aon ee 


(* Reprinted with extensive modifications from Advanced Techniques in 
Turbo Fascal by Charles Edwards, by permission of Sybex, Inc. 
Capyright 1987 Sybex, Inc. All rights reserved. 

Modified after "Re:: TF4.0 Aux Froblem" by Naoto Kimura, reprinted ~ 
by permission of the author. 

LEFKEEEFREFEERERERESS = Continue Edwards Excerpt  ##RKRKHHHEEHREERERSE ) 
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(HK KKEEEREREKEEKHEEERE Continue Edwards Excerpt  x##XHHHHHHHHEHFHEHEES ) 
Var RS Buffer >: Array [1..2,0..RS_ Buffer Size] of Byte; 

RS_ Buf Head, 

Peers bad eeetavetis.es]) OF words 

index : byte: 

Line settings : byte; 


Frocedure DisableInterrupts; 

{ Insert assembly code to disable computer interrupts 3} 
INLINE (¢( #FA )3 

Procedure EnableInterrupts;: 

i Insert assembly code to enable computer interrupts } 
Maem: «( SFE); 


fimeeren Rof2ee AVail:Boolean: 
{Thie function returns TRUE if there are characters ta be read from 
Mimiecee port. It is amalo@gous to the Turbo function EEYPRESSED for 
the keyboarcd. 

Begin 

Rsia2 Avail := 
RopewteeredGa f Citrrent CUM J] «+ RS Buf Tail C€ Current_CQM J: 
Ends; tar RS222 Avail: 


Premeecuire RS2is [Ski 
Meee eon Aw EX, GA, DA, SI, DI, DS, ES, BF : word); 
een hur | 

{ This procedure handles interrupts from RS2AzZ port ane 
fees SROLEDURE MUST NOT BE CALLED BY ANY OTHER FROCESS 3} 


Begin 
DisableInterrupte: 
pomoaror:=Fertt Regsi COM] J.LSR J and #1E; 
Pome tert ecm, RS But Tail € COMi J] := PortiRegs{ COM! }).RER); 
ace al Lewer) 1] s="PPRS But Tailf€ COM1 171) 
moe CRS Futfer Sizet+l>: 
FEnableInterrupts: 
Meet fs) J = #20: iReport end of service to FIC} 
ame 8 Lof RS232 ISRi 32 


(* Reprinted with extensive modifications fram Advanced Techniques in 
Turbo Fascal by Charles Edwards, by permission of Sybex, Inc. 
Bepwrmight 198 7/s5vbe,, Ime. Bill rights recerved. 

Modifiec after "Re:: [TF4.90 Aux Froblem" by Naoto Kimura, reprinted 
by pBermiztsion af the author. 

EEEEEEEEP ES ESHER SE RESEE  Lorntinue Edwards Excerpt  FeEEEHHHE EHF EEE ES Ee ) 


(HERERHEERRRHHEREEREE Continue Edwards Excerpt XXX HHHHHHHEHHEEHHER) 


Procedure Ages 2 TSn2 
(Flags, C5, IF, Ax, BX, 6X, BK, Sl, DIDS; Es, | Wome 
INTERRUPT : 


(This procedure handles interrupts from RS232 port two 
THIS PROCEDURE MUST NOT HE CALLED BY ANY OTHER PROCESS} 


Begin 
DisableInterrupts; 
RS Error:=Fortl Aegel COM2 JalkeSHea angie: 
RS Butferl C@M2, KS_Buf Tail € GOBM2 33 w= PertiReqcs® ClhZ 1. here. 
RS Buf Tailtl COM2Z0) := (Sehr Tapil Cle aoa 
moog (RS Bwrter sea reri): 
EnableInterrupts: 
Fortl #20 J] := Seay (Reperet <Ond ofe seamice to FIC 


b a done Toa | 


EG! “Of AS22 2 Sse, 


Feocedure R&S _ Freak; 
i. THis procedure instructs the currently selected data communications 
port te send eae bresk signal: 


REGIN 
Fort tRegs(Currenk Comi.LCK3 := 
Pore( Rees (Curren: fami. CR] or LCA SERGE: 
Delay (200) s (1/2 second: 
Forteneqs (Current Con] amine re 
Fort inkeaetCurrent ComiagkCR] wer geeR BREA: 
Enc: aie Sie Resear ¢ 


PFUNCLION Aas Ine: 
(ime AUX device 15 set to point to this function for input. It returns 
the next character received from the RS232 port. 
BEeqin 
Wile RS Buf Heag £ Current_COM J] = RS_Butf Tail € Current_CQM J] Do 
Delay(iO);: 
RSoSeeein i= 
Char ( RS Buffer ¢ GurremteCCM, «RS_Boft mead ( Current Cee Ja05 


. 
pean Ci i= 
t Current GOM Jl) ede (RS eheterer Sitesi 


(+ Reprinted w ifications from Advanced Techniques in 
Turco Fasca wards, = permission of Sybex, Inc. 
Copyright 1987 All rights reserved. 

Mocified after "Rez: TR4.9 Aux Problem” By Naoto Fimura, reprinted 

ny permissian cf tne author. 


HEPREPERE SEAS tH ete © 6OCOtinueE Edwards Evcerot REF REEREEREFEEREEXSE) 





(KREKHEKREKRRREKEEEEEER Continue Edwards Excerpt KEKE KKRKKEKKRKEKRHEKKK KEES) 
eeeeendure ARS252 Out ( Param : Char ); 
< Sends the character ta the RS2i2 port. } 


Beain 
Poeepe (( Porc [Regs £ turrent_Com J.LSRJ and #20) <3 #20) 
(Transmit Reg empty? 
da Delay(l1); 
(* Request to send *) 
Peet | Begs C Current €OM J.MCR J := MCR_RTS OR MCR_OUT2; 
IF Chk_DSR THEN 
While ((Fortl Reas £€ Current_COM J.MSRJ] and MSR_DSR) <> MSR_DSR) 
da Delay(i): {Wait a whiles 
Meech ©1S THEN 
oe eo Gate negs 2 fulrrent COM J.MSRJ and MSR_CTS) <> MSR_CTS) 
da Delay(i): (Wait a while: 
FortCRegsl Current_COM ].THRI <= Byte ( Faram ); 
feo Error:=i: 
Grid : 


(* Reprinted with extensive modifications from Advanced Techniques in 
Turbo Fascal by Charles Edwards, by permission of Sybex, Inc. 
Copyright 1987 Sybex, Inc. All rights reserved. 

Modified after "Rez: TF4.0 Aux Froblem" by Naoto Fimura, reprinted 
Dy¥ permission of the author. 
KEEELEE KE RSE REREREERERER Enc Edwards Excerpt  *#e xe xXHEHE HEHEHE ESREER) 


(KEEFE KEEEHKREEHRREREREERSESHE Start de Boer Sv tract KEKEKKKREEER KERR S REFERS) 
FROCEDURE Enable ( IR@ : byte }; 


£ Set the Interrupt Mask Register on the Frogrammable Interrupt 
Controlier ta recognize interrupts from this port } 


BEGIN 
Pome LiMms := Fort LIMR] AND NOT (a4 SHL IRQ ); 
END: < Enable 3; 


FROCEDURE Disable ( IRQ : byte ); 
{ Reset the Interrupt Mask Register on the Frogrammable Interrupt 
Pevumece.icr to ignore interrupts from this port } 


BESIN 
peleeetanen) :>= Forcr CIMR] OR ( 1 Shi sReny 
END; < Disable 3} 


ne 


(* Reprinted from "Serial Unit in TF4" by Reino de Boer, by permission 
of the author. Copyright 1987 Reino de Boer. All rights reserved. 
HEE KEKREEREKKRE KEKE HKRESE Continue Boer Excerpt EEKERRKEHEHKKRKEHRRHEHLHEHSE) 
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CHEK KKE KEKE KR KEE KEK KEKKKEKEX Continue de Boer SOxtract KEKKKEKKKKKKHKKKREKEX) 


PROCEDURE Establish ( COM@seby tee 
« Raise all hardware handshaking lines to prepare for 
communications } 


BEGIN 
WITH Regs € COM j] DO 
Port € MCR J] := MCR_DTR OR MCR_RTS OR MCR_OUT2; 
END; 


FROCEDURE SendEOI ¢« IR@ : Byte ); 
¢ Send an End Of Interrupt command to the Programmable Interrupt 
Controller to let 1t know we are done servicing this interrupt 


BEGIN 
Fort € ISR J] := 26030Reto: 
END; 


Frocedure ResetChip ( Com: Byte ); 


{ Disable UART generated interrupts, drop the hardware handshakinc 
lines. Shut down the currently selected communications port 3 


Var Dummy : byte; 


Begin 
WITH Regs [ Com ], Comport € Com j DO BEGIN 
WHILE ¢ ¢ Port € LSRF J AND LSR_DATA ) «2 0 ) DO 
Davniny. $= qi ri oe 
DisablelInterrupts: 
{ Allow none af the interrupt types ; 
Fort £€ IER J := QO: 
{ Tell modem we’re not ready :} 
Part CF MCR 3 := Por eirrmis seas 
NOT ( MCR QUTZ @ie MERTDIn Ge Behe ioe. 
i Disabie all interrupts for this port + 
Disable ¢( IRGNo ); 
EnableInterrupts: 
=n 


END: 


CONST <¢ Bit rate divisor table 
Divisar : ARRAY CRS Baud] OF word = 
( 1047, 768, 384, G62, 6. 405724, toe ee 


(¢ Reprinted from "Serial Unit in TF4" by Reino de Boer, by permission 


of the autnor. Copyright 1987 Reino de Koer. All rights reserved. 
KEELE ERREEE FE SEPEEEEEEER Continue Boer Excerpt XXX EEHKEEEXEREREDEEE ) 
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(KHEKKKHHHEKHEHHEKHKKEEHRKHHE Continue de Boer Extract KHER HEHEHHHHHEREREE) 


%, 


{ Select bit rate by programming the FRRG 3; 


FROCEDURE SelectBitRate( COM : byte: Speed : RS_Baud ); 


CONST FRBRG Settle : word = 250; 
VAR BaudDiv : word: 


BEGIN 
{ Update port data 3 
ComFart € Com J].Speed := Speed; 
BaudDiv := Divisor [£€ Speed ]; 
{ Set Divisor Latch Access Bit =¢ 
port£€ Regs £€ Cam J.LCR J] := 
portC Regs £€ COM ].LCR J OR LCR_DLAB; 
meere race divisor to FPBRG ; 
portwl Regs € COM J.RBR J] := HaudDiv:; 
{ Give port some time to settle =: 
dGelay( FERG Settle }; 
{ Reset function of RBER : 
portti Reas £€ COM J.LCR J] := 
port£ Regs £€ COM J.LCR J] XOR LCR_DLAB; 
END: < SeiectHitRate +: 
£ Set word length in Line Control Register +: 
PROCEDURE SelectWordLencth( COM : Byte; Length : byte 


VAR LinetContral : byte; 


BEGIN 
{ Update port data 3 
ComPort € Cam oon ie Se ee nein: 
pinecontral Geeoenegs € Com J.Llen 7; 
Senecontrol := f LineControl AND (¢( NOT LCR_CHRS ) ) 
OR Veen ct 5): 


7: 


{ Set relevant bits + 
Menti Reos COM J.LCR] s= LineControal; 
END; < SelectWordLength 3 


(+ Reprinted from "Serial Unit in TF4" by Reino de Boer, by permission 
of the author. Capyright 1987 Reino de Boer. All rights reserved. 
ERK ERE HLKHREEKHE EK KHEREEHE® Continue Boer Emenee KEE KEKEEKREKRKEREREERKERE) 
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CHEE HEKHKEKHKEREHHERHEHEH Continue de Hoer Extract KEE KHHHHHHEHHHHHHHEE) 
{ Set stopbits in Line Control Register } 
PROCEDURE SelectFramimng( COM : SByteweaeen = bytes 


VAR LineControl : byte; 


REGIN 
< Update port data ; 
ComPort £ Com 1].Sto0p := Sigeee 
LineControl := portl Regs £€ Com ).LCR J; 
LineControl := ( LineControl AND ( NOT LCR Stop? ) ) 
OR ( (Stag. = 1) 64. 
{ Set relevant bits 3 
portl Regs € COM J.LCR J] := LineControl; 
END: < Selectrhramime - 


4 


{ Set parity in Line Control Register +; 
FROCEDURE SelectFarity( COM : byte; Farity 2 Ramperie 


VAR LineControl : byte: 


BEGIN 
Comrortl Com ].farity += Pema: 
{ Undate port data > 
LineConmtrol := portl€ Regs € Com ].LCR 1]; 
LineControl := ¢ LineControi AND ( NOT ¥40 ) ) 
GR ORD (Parity) #8; 
famt bits 3 
c COM J.LCR] := LineControl 
F 


eS ¥ 
as 


Y 
5 


ale Ee oe 


er aa 


oo 


CONST RTS_Settle : byte = 2; 
DIR Settle : byte ae 
FRRG Settle : word = 250; 


(* Reprinted fram "Serial Unit in TF4" by Reino de Boer, by permission 
of the author. Copyright 1987 Reino de Boer. All rights reserved. 
HEREKEKHERKEREFSEHKEEHRHEREEE Enc de Roer EXCer Ppt HX HHEKKE LES HHEEHFEEREES ) 


Frocedure FurgeLine; 
{ This function clears the receive buffer and UART receive buffer for 


the currently selected port: 


VAR 
Dummy : Byte; 


BEGIN 
RS Buf Head C Current_COM J] := QO; 
moment tail &£ Current_COM J] := 0; 
Dummy := ForttRegs(Current_COM].RBRI; 
epee Ot Purgeline: 


FUNCTION Connected : boolean; 
{ Returns TRUE if the Data Set Ready line is true, signalling hardware 


4 


handshaking > 


RESIN 
Connected := FortCRegs(Current_Com].MSR] and #80 = #80; 
END; 


Function RS222_ peek : Char; 


t Added to allow nondestructive read of the currently selectec part 
input buffer for xmadm.Sync_receive: 


Regain 
While RS_Buf Head € Current_COmM J] = 
foment Tai let Curren COtiieda Delay(t); 
meee wpeer 2:=8ihar’( ho@bittertie Current COM. 
RS Buf Head [Current COM] J); 


End: fof RS222 Peek? 


peeeeourewAS Eight Bits; 


4 


( Aacdjust the comport for eight 51ts reaarcless of current setting : 


BEGIN 
Beet £ Regs C Current_Com J.LCR 3 := LCR_NOFARITY OR LCR_STOFI 
OR LCR_CHRE; 
END: 


Frocedure RS_ Restore ( COM : byte ); 
{ Reinitialize the COM Fort 3 
BEGIN 

WITH Comoaort C€ COM J DQ 


RS _Imitializet Com, Speed, Farity, Stop, Length ?); 
END; 
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Frocedure Send _String ( &S : String ); 


f 


< Send a string aut the currently selected RS232 port } 


BEGIN 
IF Length (S) = © THEN 
FOR index := 1 to Length (S) DO 
RS2Z32 Out ( S&S C0 anceee 
END; 


(HH KKHKHKKKKEKSKEKKEERER Start Edwards Excerpt He HHHHHHHHHHHEH HHH EHEEE) 
Procedure RS2Zi2 Init «@ COM, Famams : aera). 


« Call BIOS interrupt #14 with a formatted word to initialize the 
currently selected communications port 3+ 


VAR Regs : DOS.Registers; 
REGIN 


Regs. Dx C 
Regs.AxX := F 
Reg 


tH 


EN: 
Froacedure RS_Initialize (Com: Hyte:Speed: RS Baud:Farity:RS_ Parity; 
SLOp ,Cema einen 


rf 


Initialize communications port. Vector the appropriate interrupt to 
point to aur interrupt service routine. Initialize hardware 
handshaking lines. Store current settings in a data structure far 
FestOnmati er: 


Input: COM ~ The RE2Z22 pert to be handled 
Sseec - The baud rate of the line 
Ee - The garity of the line 
Stop - The number of stop bits 


Length - The mumber of data bits 


oe 


Var Farams : ward: 


(* Reprinted with extensive modifications from Advanced Techniques in 
Turbo Fasceal by Charies Edwards, by permission of Sybex, Inc. 
Copyright 1987 Sybex, Inc. All rights reserved. 

Modified after "“Re:: TF4.0 Aux Problem" by Naoto Fimura, reprinted 
by mnermission af the author. 

FEERELRELEREESEFERERE Continue Edwards Excerpt #2 2x XKEKEKKEREREREE) 
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(HEE RHKEREEKEEEREREREE Continue Edwards Excerpt EEK KKKHKKHHEREEEEE) 
Begin 
WITH Regs C COM J] DO BEGIN 
Current _Com:=Com; {save comm port in local variable: 
Farams := Ord(Speed) #32 + Ord(Farity)*8 + (Stop-i1)#*4 + Length-9s; 
{ Calling the BIOS service to initialize the port 
* clears * all UART interrupts 3; 
RS232 Init ( COM, Farams ); 
Delay ( FBRG_Settle ); ¢ delay to allow UART to settle 3 
poe {£ LOR 1 3= 
Fort € LCR J AND ( NOT LCR_DLAB ); 


* 


{ Set our interrupt handler 3 
CASE Com OF 


1: SetIntVec ( COM1_INTR, Addr( RS2Z2_1SR1 )); 
2: SetIntVec ( COMZ_INTR, Addr( RS2Z2_ISR2 )); 


END: 

ResetChip ¢ Com }3 

DisableiInterrupts: 

Betablisie( COM de 

Enable ( Comport C Current_Com ].IRQNo ); 
£ Interrupt on receive only =: 

mere Copeos £ COM J.1ER J := IER_RDAS: 

{ Clear the port buffer : 

RS Buf Head £€ Com 3 :=0; 

merous Jai € Com J] s=0; 

{ Reset any stray interrupts in the FIC 3 
SencEQI] ( Camport € Current_Com J]. iROQNo ); 
EnableiInvterrupts: 


Comport C Current Com ].Speec i= Speed; 

Compert € Current_Com ].Farity := Farity; 

Compoart (€ Current_Cam ].Stap = oe Ge 

Comport € Current Com J.Length := Length; 

Comport C€ Current _Com }]. Installed := TRUE; 
END: 

Sage weed Initialize: 


(* Reprinted with extensive modifications from Advanced Techniques in 
Turbo Pascal by Charles Edwards, by permission of Sybex, Inc. 
Copyright 19387 Sybex, Inc. All rights reserved. 

Modified after "Res: TF4.0 Aux Froblem" by Naoto Kimura, reprinted 
by mermission of the author. 

Modified after "Serial Unit in TF4" by Reino de Boer, reprinted by 
permission of the author. Copyright 1987 Reino de Boer. All 
rights reserved. 
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(HEKEREREREREREREERER Continue Edwards Excerpt *## HEHE HEHEHEHEHHEES) 
CONST 

ExitPtr : poimter ten. 

OldintVecil : pointer = NIL; 

OldIntVec2 : pointer NIL; 


Old_IMRA : byte = O; 
Qld _IER1 : byte = 0; 
la Sek : byte = QO; 


Frocedure RS Cleanup; 


«This procedure should be called on exit to disable interrupts on the 
RS232 port and reset everything to its default state. 
Begin 
Comport (€ Current_Com J.Installed := FALSE; 
ResetChip ( Current _Com ): 
End; tof Cleanups 


(* Reprinted with extensive modifications from Advanced Techniques in 
Turbo Fascal by Charles Edwards, by permission of Sybex, Inc. 
Copyright 1987 Sybex, Inc. All rights reserved. 

Modified after "Re:: TPR4.0 Aux Froblem" by Naoto Eimura, reprinted 
by permission of the author. 

Modified after "Serial Unit in TF4" by Reino de Boer, reprinted by 
permissian of the author. Copyright 1987 Reino de Hoer. All 
rights reservec. 

KEREEKE EERE KEERERES Continue Edwards Excerpt ##eXREHEHEHHEEHEEEEE ) 


(HHKHKKHHKEKHEKKEEKHEX Continue Edwards Excerpt  *## HHH HHHHHHHEEHKREEES ) 
(* This 1s the error handler for Datacomm *) 


(KEK HKEKE EER HEKE KEKE HREKEKENEREH Start Swan Excerpt HEKKKKKKKKKKRKREEKEH) 
CONST 
HexDigit : ARRAY (0..15] OF Char = ‘O122456789ABCDEF ¢ 5 


ye 
string2 = stringl2]; 
string4 = stringl4]; 


FtrRec = RECORD 
Ofs, Seg : word; 


END: 
FUNCTION HexByte (B : Byte ) : string2; 
BEGIN 
HexByte := HexDigit CR SHR 4] + HexDigit£BR AND FJ; 
END; 


FUNCTION Hex (I : Word) : string4s 


BEGIN 
Hex := HexByte(Hi(I)) + HexByte(La‘tl)); 
END: 

(* Reorinted from Mastering Turbo Fascal Files Ey Tom Swan, by 
permission of Howard W. Sams and Company. Copyright 1987 Howard W. 
Sams and Company. All rights reserved. 

HEEL EE LR KEELE EEK EERREFEREERE End Swan Excerpt eee KEK KEEKERERHEHEEN EE) 


tFF+3 PROCEDURE Datacomm_Errors; t#r-3 


c 


~ his 15 the Exit Frocedure for * this * unit } 
VAR imncex : byte; 


REG IN 
fae Leoge ~-) OR (eErrarAddr <> NIL) THEN 

BEGIN 
Sec cOUEOUt., § °) § 
Rewrite (OutPut) ; 
(eWriteln (#7)3*) 
feeeeelode = sre TREN 

Writeln(’ USER BREAK’) 

Boe 


(* Reprinted with extensive modifications from Advanced Techniques in 
Turbo Fascal by Charles Edwards, by permission of Sybex, Inc. 
Copyright, 1987 Sybex, Inc. All] rights reserved. 

Modified after "Re:r: TF4.0 Aux Freblem" by Naoto Eimura, reprinted 
by permissian af the auther. 

KEXEEEEREFREERFESERES Continue Edwards Excerpt x Sx Xe E HEE HE PERE HED ) 


(ERAARRERRERRHREERERE Continue Edwards Excerpt XXX XHRHRHKRHRERRHEERE) 


REGIN 
writeln (‘Critical Ernrar je © , "HeAvex1 vee - 
Write(’AT PROGRAM LOCATION’); 
Writelna (HEX (seq (ErrorAddr™)),’:°, Hex (ofs(ErrorAddr%))); 
END; 
END; 
DisableInterrupts; 
< Restore the previous interrupt vecters } 
SetIntVee ( COMT_INTR, GldlntVee) ); 
SetIntVec ( CQOM2_INTR, OldIntVec2 ); 
EnableInterrupts; 
< Shut dawn the ports >; 
FOR index := COM1 TQ COM2 DQ BEGIN 
Fortt Reqs € index J.LCRIJ:=Portl Regs (€ index }].LCR] and $7F; 
Portt€ Regs € index J. IER): =0; 
Fart{ Reqs € index J.MCRJ:=0; 


| 


END; 
{ Restome the FIC interrupt mask > 
Fort € IMR 3 := Cid_ Tm: 
Exu incite 2 = Exaetetr: 
END: < Datacemm_Errar > 
REGIN Unit initializatieme 2 ; 
Cheendseak := TRUE: 
. Save the enxnrvetrme exit precedcurester thwe umat } 
ExitPtr tssExi bbpec, 
{ Save the existing interruat @eebeter the FIL ? 
Qid IMR a= Fegt,..t. EMR @; 
{ Save the cumrent serial cart meternmust vectems : 
GetIntVec ( CQMIT_INTR, OQidIntVec!]); 
GetintVec ( COMS INTR, OldintVec2); 
{ Clear’ the rechi a burters ;: 
Ro_ Bes Heed t CUM J g= 05 
RSenut Hear ( Cal J f= 0; 
RS bay Veil € CMs J y= OF 
RS Buf Tazi € COM ] := 0; 
Y dink ain cur unit exr% pracedure to unca ail of the above an 
preagram terminatian =: 
ExitFrac := Addr (Datacomm_errar); 
{ Set up both ports to gmithal vaiues >} 

(* Resrintec wits extensive modifications fram Advanced Techniques in 
Turba Fascal ty Charles Edwards, by permission aft Sybex. Inc. 
Caayvright 1967 Swvbex, Inc. All rights ereserved 
Madifiec after "Re:: TP4.0 Aux Froblem" by Nacte Kimura, repmaimee 
oy permissian ar the author. 

PEP HEHHPRETHAEPABARR «Continues Edwards Excerotl PFS EPRSPHELSAIAERES) 


(HEKKEKKESHHRHFHEEEEEH Continue Edwards Excerpt HX EEHREKEEEREREEFES ) 
Pamperndexe= COMi 10 COM2 DO 
WITH Comportiinde:}) DO REGIN 
Stop = i; 
Length := &; 
Aiieess := 8 
Speed := B4800; 
Fsrity := None; 
IRQNo := IR@Line € index Jj; 
Bastaliied := FALSE:s 
end; <{ COMPORT initializaton ; 
END. 


(4 Reprinted with extensive modifications from Advanced Techniques in 
Turba Fascal by Charles Eqwards, by permission af Sybex, Inc. 
Copyright 1986/7 Svbex, Inc. A411 right¢e reserved. 


Mogitications reprintec trom “Serra! Unit In TP4" by Reino de Boer, 
EUMeermisciajwerethe autor. Ceoyrverht 19987 Rernosde Boer. All 
riguis -eserved. 
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APPENDIX @ 


SOURCE LISTING FOR UNIT DIRECTOR 


V 
y) 


(EHH HHH HHR HEH HEHEHE KEE HEHEHE KEKE HEHEHE HEHEHE KEK HEE HK EK E HEH HH HHH HHH HEHEHE) 


(HE DIRECTOR. PAS HHH) 
(HEHHHHHHHHHERER Turbo Fascal 4.0 unit to read a directory *##*##*###x) 
(HHKEEHKHKHHERHE and display it SHHKHHHH) 
(HHHKHHHHHHEHHSE Date: 28 July 1989, 10:06:53 MEZ HXHKEKKHEE) 
(KHER EKHHHKEKREKEH From: Christian Boettger KEKKHHHKEH) 
(KHHHKHKEHHEHEHER +49 (ON SST 39151135 / 12010506 at DBSTUI HHHHHHHES ) 
(* ¥) 
(% Modifiec slightly to change presentation ¥) 
(* for the window manager *) 
(* and to use the error reporting capability *) 
C of UNIT ErrorCod *) 
(* by Nelson Ard ¥) 
(x Last modification Sep 89 %) 


(HFK K KKH KKLE RHEE EH KEKKKA ERE EKER KEKE KEKE KK EKKE EER KEKE RHE HEHEHE KHER HER ERERSE | 


UnLE Oo Preccar. 


uses das.crt, ErrarCod: tErrorCod added: 


oracedure ViewDir (MatchFtrn : string: FromLine, ToLine : inteaqer); 
pracedure ShawDir (MatcnFtrn string; FromLline, Toline : integer; 
Yar error integer); 


(* Reprinted from "Turbo Fascal 4.0 unit to read a directory and 
disclay it" by Dipl. Phys. Christian Boettger, by permissian of the 
author. 

FRKRHRERRERHEAEEEF HERSEY Continue Hoettger Excerpt  XH#HHEHHHKHKHRKEREKEKE ) 


(KEKEKEEREREREREREKREEES Continue HRoettger EY GCemgit KKEEKKEEEEEKKEKEEKEEES) 
imolementatian 


procedure StandBy; 
Var xyY s integers 
muell : char; 

begin 
x:=wherexX; y:= Wherey; 
HighVideo; 
write(’Hit any key to continue ‘); 
NormVideo; 
repeat until keypressed; 
muell := Readkey; 
write(’ is 
emonyY (i ,V)s 

ends 


(* Reprinted from "Turbo Fascal 4.0 unit to reac a directory and 
display it" by Dipl. Fhys. Christian Hoettger, by permission of the 
author. 

EEEKHEREKERHEFEEEFERE ERE End Boettger Excerpt  *# xxx HHH HR EERE EEERE) 


(HEHE KKKKKKHEHKHEHEHHEREEE Start Verbraeck Excerpt KEHHHHHHKHHKHHHHHHEEE) 


procedure ViewDir (MatchFtrn : string; FromLine, ToLine : integer); 


(HH HH HK HH KKK HK KK HR KEKEKKEKEKHEH HH KE KKH KKK EHH KHEK KEK HHH KEK KEKKEKEKKEHHKEKHKKHKKKKKE 


Ir. Alexander Verbraeck e-mail: 
Delft University of Technology winfave@hdetudi.bitnet 
Department of Information Systems winfave@dutrun. uucp 


PO Box 356, 2600 AJ The Netherlands 


KKKHHK HE KKK HHH KKH HHH HHH KKH HHH HEE H KKH HEHEHE KKH KHEKEKKKHEKEKHKKKHEKKKKKKRHEKEE) 


var 
DirInfto : SearchRec; 
Line - 
Fosition : integer; 


begin 
LowVideo; 
GotoxY(1,FramLine?; Clameads; 
Line:=FromLine; Fasition:=1; 
FindFirst (MatchFPtrn,#3/7,Dirinto) ; 


if "DasError< +0 then 
writeln(’#*#* NO FILES FOUND ***°) 
else 
while (DasError=0) and (Line «= ToLine ) do 
begin 


GotoxyY (Fosition,Line); 
if BirInfo.Attr=F10 then HighVideo; 
write (DirInfo. Name? ; 
LowVideoa; 
FOS) L1G? =— Ged =a Oma to. 
if Fosition+é6a then 
begin 
Line: =Linetl; 
Fosition:=1; 
ends 
FindNext (Dirinfoa); 
end; 
NormVideo; 
end; 


(* This portion reprinted from "Turbo Fascal 4.90 unit to read a 
directory and display it" by Dipl. Phys. Christian Boettger, with 
the permission of Ir. Alexander Verbraeck, the original author. 

KKEKEKEKEKEFEEKKESEEISFE Enc Verbraectk Excerpt KEKEFKKKKKEHEKEKKHEKF) 


(KE KKKKEFRKKRKKRKKRKKEKHKRE | Start Roettger Excerpt KKKKKKKKKKKKKKKKKKES) 


procedure ShowDir (MatchFtrn : string; FromLine, ToLine : integer; 
var error : integer); 
(KERR KKKHK KKK KEKE EKER KKK KKK EEK KK KEK KEKE EEE KEKE KEK EEK EEK KEKE KEK KEKE KEKE KEES 


Christian Boettger phone: (+49) (0)321/391-S113 
maii: Institut fuer Metallphysik und Nukleare Festkoerperphysik, 


(room -167/-168), Technische Universitaet Braunschweig, 
Mendelssohnstrasse 2, D-3200 Braunschweig, land 
Bundesrepublik Deutschland (West Germany / FRG / RFA) 
EARN: J[2010S506@GDESTU1L. BITNET InterNet: boettger@julian.uwoa.Ca 
UseNet: boettger@ julian. UUCP 
UUCF / UseNet: 
(whereever) 'uunet!watmath ! julian! boettger 
(whereever) 'uunet 'boettger@hydra.uwo.CA 
(whereever) 'uunet 'mcvax 'unida!i 2010506@6DRSTUL. BITNET 
HELE KEE HK ERHK KEKE E KK ERE ER KH KEE EEE KEK EE KEE EHH E LEE ERE HE KEKE EKER ERK KK HKE RHE) 
ver DiriInfo : SearchRec; 
Suci@iarar 
line,ml : integer; 


procedure WriteEntry(DirInfo : SearchRec; line : integer); 
var DT : DateTime: 


Atte bute eoknhi ngs 


procedure GetAttribut (attr : bytes var attribut : string); 


beain 
case attr of 
ReadOnly : attribut := ‘ReadOnly’: 
Hidden westcebeltt :=— Hidden : 
SysFile s attribut := ‘SysFile’; 
YOlumel®O : attribut := ‘“VolumelD’; 
Directory : attribut 3:= “Dieectary ; 
Archive 2: attribut := ‘Archive’: 
AnyFilie ¢ Set i hte ee eayi be 7 
else begin 
Sie (aot len ec cr 1 Bille) a 
attribut := “Attr = ° + attribut; 
end; 
end; 
end; 


(* Reprinted from "Turbo Fascal 4.0 unit to read a directory and 
display it" by Dipl. Phys. Christian Boettoer, by permission of the 
author. 

KREEREFEEKKEKEKEKEKESFKS Continue Boettger Excerpt HHH HHHHHHHEHHH HEHE) 


+ 
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(HEHKKKEERKEREKEHEEEEH Continue Boettger Excerpt HHH HHHHHHHHHHHHHHHEE) 
begin (*of WriteEntry*) 
with DirInfo do 
begin 
UnFackTime(Time,dt) ; 
GetAttributlattr,attribut): 
GeroxyY Cieiane): Cireek 
IF attr = Directory THEN HighVideo; 
write ( Name ); 
GoToxY ( 1ijelwne ws 
IF attr = Directory THEN 
Write ¢ ° “DIR? *) 
ELSE rite ( size 2e)- 
Gotoxy ( 24, line ); 


{Write (Name:1i2,° ‘,Size:8, ’ ae 
with dt do 
begin 
write(day:2,°- ,momths2, — years ey 
write(hours:2, 2 ,mam. 2, © « Setar. Be: 
end: 


writeln(’ ‘,attribut): 
LawVidec; 
end; 
end; (#o0f WriteEntry*) 


begin (#af ShowDir) 
M1 ToLine - From.Line: 
Start := WhereY+ti; 
FindFirst (MatchPtem, Ame lle, Baie nto) ; 
case DQSError aft 
Ut staal q 
WriteEntry (DiriInfo,start); 
line += "etare: 
while DOSError=0 do 
beain 
FindNext (DirInfoa): 
TInctline?s 
if line?Ml then begin 
stanaBy; 
lime := start; 
Cia eies 
ends 
if DosError=0 then WriteEntry (DirInfo,line) 


Hs 
u 
F 


(+ Reprintec from "Turbo Fascal 4.0 unit to read a directory and 
display it" by Dipl. Phys. Christian Boettger, by permission of the 
author. 

REEF KLKREFRHREFEEREKEERE Continue Boettger Excerpt EERE KEK HHHHEHKHEERE) 
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(KEK HK KKHKKKEKEKEERHEEE Continue Boettger Excerpt  FExKKHKHKHEHEEREEEES ) 
else begin 
GotoxXY(1,line); 
ciGgeel s 
writelns 
Glus&ed 5 
writeln (Error_Code C€ DOSError J,° ::°)3 
writeln; 
OR ane 
GotoxXY(1,Wherey) ; 
end; 
end: 
error :=0; 
end; 
begin 
GotoxY(i,start); 
Al coumirapoim Coca DUSErrer J, i: °)3 
writeln( Directory not foundi: ): 
Crrotm, = —eUSeniner. 
end; 
16 : begin 
GOtLOxY (i. start): 


r3 


Je eotoicaiee Coe ( DESEPrar J,° 1:1 °)5 
writeln ( 
‘No Entries in directory that match pattern i:%)s5 
error := DOSERROR; 
ends 


else begin 
bOLOKY (1. Steet); 


White hterimes Code ({ DESEni Olid sae: ? ; 
Sgg@ele es — eb aisles el 
end: 


enc: 
enc: (sof ShowDir®) 


(* Reprinted from "Turbo Fascal 4.0 unit to read a directory and 
display it" by Dipl. Phys. Christian Boettger, by permission of the 
authar. 

KEKEKEFEKERERHERERERER End Boettger Excerpt HEH KHKEHHHERHEHHE HEE ) 
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APPENDIX R 


SOURCE LISTING FOR UNIT ERRORCOD 


( HHH HH HHH EHH HEHEHE H HHH HEHEHE HEHEHE EEE EEE EEE HEHE HEHEHE EE KEKE KEKE EEE KEKE KEE) 


(HHH 
(HEE 
(HEHE 
(HHH 
(HHEEK 
(HHH 
(HEHE 
(HEE* 
(HEF* 
(HHH 
(HHEF 
(HHEF 


ERRORCOD. FAS 


This unit maps MS-DOS error codes returned by the 
operating system to strings to give the operator a 
human readable response. 


Reference: 


MS-DOS Version 3 Programmer’s Utility Fack 
MS-DOS Reference Guide Volume 1 
1986, pp. 4.86-4.88, 4.254-4.257. 


Developed by Nelson Ard 


Last modification Sep 89 
( KEK HEHE REE KKK EE HEE KH HEHEHE HEHEHE HEHEHE HE EEK E FHKE EEK HEHEHE EEE EE EKER EEE E REFER) 


UNIT ErregGac. 


CONST Error_Code : 


stringl4o) 


aes see 


‘Invalid 


ARRAY (0..88] OF 
(Ne? eigigemcun 
‘Invalid function code’, 


“Pile wet foure ; 

‘Fath not found’, 

‘No file handles left’, 
‘Access denied’, 
‘Invalid handle’, 


‘Memory control blocks destroyed’, 


‘Insufficient memory , 

memory block address’, 
environment, 

format’, 

access code’, 

data’, 
“RESERVED er ieois 


‘Invalica 
‘Invalid 
‘Invaiid 


code’, 


‘Invalid drive’, 
‘Attempt to remove the current directory’, 
‘Not same device’, 


‘No more files’, 


‘Disk 1S write-pratected ', 


‘Bad disk unit’, 


Vee 


HHH) 
HHEX) 
KEEE) 
KEKH) 
HEHE) 
HKEX) 
HEE) 
KHEEE) 
HEHE) 
HX) 
HEHE) 
HEE) 


‘Drive not ready’, 

‘Invalid disk command’, 

"ERE. error @ 

‘Invalid length (disk operation)’, 
‘Seek error’, 

"Not an MS-DOS disk’, 

‘Sector not found’, 

"Out of paper’, 

‘Write fault’, 

‘Read fault’, 

‘General failure’, 

‘Snaring viclation’, 
TEOeMaVielawlan 

‘Wrong disk’, 

"FCB unavailable’, 

"RESERVED error code’, 

“RESERVED error cade’, 

ESee VED error code’, 

RESER EE error code’, 

"RESERVED error cade’, 

‘RESERVED error cade’, 

"RESERVED error cade’, 

eoenveD errear code , 

RESERVED error code’, 

RESERVED Ghrar Cade, 

RESes Ph er ern cade . 

RESERVED erromgcoce , 

“RESERVED errar code’, 

"RESERVED error code’, 

‘Network request not supported’, 
‘Remeate computer nat listening |, 
‘BDunlicate name on network’, 
‘Network name mot found’, 
‘Network ousy 

‘Network device no longer exists’, 
‘Net BIQS cammand limit exceeded’, 
‘Network adapter hardware error §, 
‘Incorrect response from network’, 
‘Unexpected network error’, 
‘Incompatible remote adapt’, 

‘Fr iGeeetenec tull”. 

‘Queue not full’, 

‘Not enough space for print file’, 
‘Network name was deleted’, 
‘Access denied’, 

‘Network device type incorrect’, 
‘Network name not found’, 
‘Network mame limit exceeded’, 
‘Net BIOS session time exceeded’, 
‘Temporarily paused’, 

‘Network request not accepted’, 


16.2 


CONS] Breer clase. 


Recommended Error Action 


Err Or Weecuce 


‘Palit els 
“RESERVED 
“RESERVED 
‘RESERVED 
"RESERVED 
“RESERVED 
"RESERVED 
“RESERVED 


disk redirection 1s paused’, 


error code’ 
error code’ 
error code’ 
error code’ 
error code’ 
error code’ 
error code’ 


‘File exits’, 
‘Duplicate, File Conteole eraaia.. 
‘Cannot make’, 
‘Interrupt 24 failure’, 
‘Out of structimess: 
‘Already assigned’, 
‘Invalid password’, 
‘Invalid parameter’, 
‘Net write fault’); 


? 
? 
4 
4 
? 
? 
? 


ARRAY £1i..12] OF stringl40] = 


{ Our ot va 


resource’, 


‘Temporary situation’, 
‘Fermission problem’, 
‘Internal error in system software’, 


“Hardware 


failure’, 


‘System software failure’, 
“Applicatian pragram error’, 
“File or 1ltem nOtefcuna | 

‘File or item of invalid farmat’, 
"File or item interlocked’, 
‘Meéciea failure - storage medium’, 
‘Unknawn errar’); 


ARRAY Ci. 
(‘Retry, then prompt user’, 
‘Retry after a pause’, 
‘Reoprampt user toe reenter’, 


-/] OfeStringlsu3 


‘Terminate with clean up’, 
‘Terminate immediately’, 

‘Dtoserve only’, 
‘REC yecdt tem COFFECCiingmmctllec ) = 


ARRAY i1..9] OF Stringl40j] = 


("Unknowr’ , 


‘Random Access block device’, 
‘Related to a network’, 

‘Related, tagserial gaccessedeyace , 
‘Related ta RAM); 
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FROCEDURE Extended _Error_Coce (VAR 
VAR 
VAR 


cn 


Following an error code returned 
I/Q function, this may be called 


+ 


error >} 
IMPLEMENTATION 
integer; 


Var index 


PROCEDURE Extended Error_Code (VAR 


VAR 
VAR 
Var Regs : Registers: 
BEGIN 
Regs.AH := #59: 
Regs.8X% := 5 
Intr ($21, Regs): 
Error _Coce := Regs.Ar: 


Reas. BH: 
Reqs.CH; 


Eemereilvass : 
meee: LOCUS : 


Error Code 


PrCOrueeass -s 
EeaOretocs | 


INTEGER: 


Ryte; 


Byte): 


ny an MS—085 fiumetion call or 
for amplification on the 


EPrerecoee 


Error Class : 
EemOmr Locks .: 


16a 


PweSeER: 
Byte; 
Byte); 


crt 


APPENDIX §S 


SOURCE LISTING FOR UNIT GENERAL 


} 


(HEE HHEE HERE HEER EK EHE HEHEHE EEE EEE E EE EEK HEE EK HEE KKH KEKE EEE EEE HEHE KK ERK KK HEKK KEK) 
(eee GENERAL. PAS ##) 
(*#* This is a library of general purpose routines to augment the +) 
(*¥* features of Turbo Fascal 4.0. This UNIT requires the standard**) 
(#*¥ units CRT and DOS supplied with the Turbo Fascal 4.0 compiler ¥*#) 


(¥* in order to compile. He) 
(#* ##) 
(## Reference: Edwards, C. C., Advanced Techniques in #*) 
(#4 Turbo Fascal, ppe 66 - 7/3, SyYRE:, limes es ¥#) 
(H¥ ¥%#) 
(a Modified from a Tumbo FPaccale2.) nel test ester x¥) 
(## Turbo Pascal 4.0 UNIT by Nelson Ard +e) 
(*¥+# K%) 
(#® Last Modification: Sep 8&9 ¥%) 


(KKEERE EEE KER ER EEEK EE EEE E LEER EEE EERE EEEEEE EEE EERE LEK EEE EEE KEER EEE ) 
(EHF EE KEREKEERFEHSHREPEHSR Start Edwards Excerpt HHH FHHEEKHE EE REFS ) 


UNIT Generai: 


INTERFACE 


17) 


Hikes 


me 


Cursor Type=(Cursor Small ,Cursor_Large,Cursor_Invisible); 


(# Reprintec with some modification from Advanced Techniques in Turbo © 
Fascal by Charles Edwards, by permission of Sybex, Inc. Copyright 
i987 Sybex, Inc. All rights reserved. 

SESE HERS HSH HK RHR T ES Continue Edwards Excerpt XR EKERHHEHE HH EEE HES ) 
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(HEEKHEERKEREEREREHREH Continue Edwards Excerpt  *## HHH HHHHEREREHHEEX) 


Frocedure FillWord (Var V; Num,Value: Integer); 
(¥This procedure is similar to the Turbo procedure FillChar, except 
that it fills the variable with a 14 bit word value rather than an 


8 bit character. *) 


Frocedure Exchange(Var $,D; L:Integer); 

(*#This procedure is a fast machine languge routine to exchange the 
contents of two variables. No test 15 made concerning the 
compatibility of the variables. That is left to the programmer. *) 


Frocedure Heep (Frea: Integer); 
(*#This procedure produces a tone for 174 second*) 


Function Max (X,Y: Integer): Integer; 
mere ttirns the larger of two integers*#) 


poimeeionm Min(X,Y: Integer): Integer; 
(4Max returns the smaller of two integers*) 


ype; Mono: Boolean); 


ocedure Cursor _Size(Size:Cursor_ 
#7Th1is procedure changes the cursor into either an underline or a 
block cursar 


1 tnderline cursor 
mloecr EUrsor 


Input: Size = Cursor Small creates an 
es an invisible cursor 


A 
Cursor Large creates a 
Cursar Invisisle creat 


for a monochrome screen 
& for a colar/graphics card 


Mone = Tru 


Fal 


ffl 


Ww 


%) 


tection Gel Time: Long String; 
(4This orocedure returns the time in the form HH: MM:SS xM*) 


(* Reorinted with some modification from Advanced Techniques in Turbo 
Fascal by Charles Edwards, by permission of Sybex, Inc. Copyright 
1987 Sybex, Inc. All rights reserved. 

KEKE EKER EKERES HESS EFE © ©6OC OME NQUSG EGwarde Excerpt FREKKFERERREERERERERSE) 
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IMPLEMENTATION 
(KEK KEKEHEKHKERHEHHHERH Continue Edwards Ege pt HEHE KHHHHKHKKEHHKHHHHE) 


Frocedure FillWord(Var V; Num,Value: Integer) ; 

(*This procedure is similar to the Turbo procedure FillChar, except 
that it fills the variable with a 16 bit word value rather than an 
8 bit character. 


Input: V: The variable which is to be filled 
Num: The number of words to full with the value 
Value: The 16 bit word to be stored in V 


*) 
Begin 
Inline (#C4/2BE/V WEEES DI, VeEregs ) 
/$8B/F8E/Num (#MOV CX, CNum+BFI*) 
/$8E/FE6/Value (¥MOV AX, CValuetBF)*) 
eae © (#CLD*) 
/FF2/F0E (#REFNZ STOSW+) 


) 5 
Ends (#o0f €1) 1 Wee) 


Frocedure ExchangeiVar S,D 

(47TRhis procedure 1s 4 fast macnine languge routine ta exchange the 
contents of two variables. No test 15 made concerning the 
compatibility of the variables. That 15 left to the programmer. 


; L: Integer); 


Input: S,D: The variables ta be exchanged 
L: The number of bytes to exchange 


=) 

Beaqin 

Inline <#ié (#FUSH DS*) 
jeep eee > (4 DS Sec eeie ice) 
/FC4/$BE/D (+LES Doles) ¥ 
/FSEB/FRE/L (4MOV CX Cie Beas) 
/FFC (¥CLD*) 
{$26/F96/F05 ($L: MOY ALZESs eh ia? 
S/FB4/F04 (¥EXCH CSI],AL*) 
/F46 Tee ihe TS ise) 
SEBA (4S 7OSHe) 
ie ila 5 ae (¥LQOF L¥) 
yea? (KFOF DS*#) 


ys 
End; (#of Exchange?) 


(*® Reprinted with some modification from Advanced Techniques in Turbo . 
Fascal by Charles Edwards, by permission of Sybex, Inc. Copyright 
1987 Sybex, Inc. All rights reserved. 
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(ERERRKEKERHEEERKEHERRE Continue Edwards Excerpt XH KKHHHEHHHHEKERERE) 
Frocedure Heep (Freq: Integer); 
(¥This procedure produces a tone for 1/4 second*) 

Hegin 

NoSound; (*Reset flag*) 

Sound (Freq) ; 

Delay (2350) ; 

Noeaunds; 

End; (*cof Reep*) 


Function Max (X,Y: Integer): Integer; 
(#Max returns the larger of two integers*) 
Begin 
If X < Y then 
Max3=Y 
else 
Maxr=X3 
End; (#a0f Max) 


Function Min(x,Y: Integer): Integer; 
(*#Max returns the smaller of two integers*) 


Begin 

me A 6 Y Chem 
Mini=*x 

else 
Mins=yY; 


End: (#0f Min*) 


Frocesure Cursor Size(Size:Cursor_Type; Mono: Boaalean) ; 
(¥This procedure changes the cursor into either an underline or 
& block cursor 


Cursor Smail creates an underline cursar 
Cursor_Large creates a Block cursar 
Cursor Invisible creates an invisible cursor 


feet: Size 


Mona = True for a manachrame screen 
Re) Sot oieeece CO! City Gieameo oC ct OC 
~ 
alata 
Cursor Values:Array [0..2] of Integer = (#0607 ,#0007 ,20COD,#000D) ; 


Var Regs: Registers; 
Begin 
Reas. AX: =FO100:3 
I¢ Size = Cursor_Invisible then 
Regs.CxX:=#2607 


(* Reogrinted with some madification from Advanced Techniques in Turbo 
Fascal by Charles Edwards, By permission of Sybex, Inc. Copyright 
198/ Sybex, Inc. All rights reserved. 

LEKELEEERERRKEEESTESHER Continue Edwards Excerpt  *X# ex XERES FEES REEER) 


CHEHHHHHKHHHEHHHREHHHH Continue Edwards Excerpt KEKKHEHHKHHHEHKHKKHHHHKH) 


else 
Regs.Cx:=Cursor_ValueslOrd (Mono) *#2+0rd (Size) 1]; 

Intr ($10,Regs); 

End; (*ot Cursom Sizex) 


Function Get_Time:Loang_ String; 
(*#This proecedure returns the time in the form HH:MM:SS xM*) 
Var Regs: Registers; 
Hour Min sSec ,Mestring has: 
LSEVte: 
Regin 
Regs.AH:=22C; 
MSDos (Regs); 
sir (Reqs soles ans 
Str (Regs. DH:2,Sec); 
For 1[:=te = do 


Begin 
If MinflIJ=" ° then MinfI}:='0'; 
If SecCli=' ° then SeclI):='0'; 
EnGe 

Cace Regs.CH of 
ie cole i 2s 


lSoucet Ilt=heqgssen—t =: 
- l:=Regqs. GF 

Ena; <% @©7f eases? 
ea ae OT 5, 8 


iD 
-—~ 
fi 
D 


If HourfijJ=' ° then Hourlij:='O's 
lf Reds.GH sl 2eenem 

Ms= "AR 
else 

PS “foie 


Get_Time:=Hourt : +Mim+ 3 +See. se 
Ends  (*omRGee" Time) 


RESIN 
E 


No. 


(* Reprinted with some modification from Advanced Techniques in Turbo | 
Pascal by Charles Edwards, by permission of Sybex, Inc. Copyright 
i93/7 Sybex, Inc. All riornts peser ved: 
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APPENDIX T 


SOURCE LISTING FOR UNIT MISCPACK 


(KEKE KKK EHH KEKE ELE FE RKEK ERK E EEK EK HE EEE EEK E EEK EEE ERE ERK KE KEKE K KEK EEK HE KEES ) 


(FHKE 
(REE 
(H¥K¥ 
(KFRK 
(FHKE 
(KEKE 
(HHH 
(HEH 
(HHH 
(KEY 


MISCPACK.FPAS 
This contains common data structure declarations for 
several units and a couple of utility routines. 
Derived from the include file of the same name in the 
reference. 
Reference: Swan, Turbo Fascal Files, 1987, pp. 14 - 26 
Developed by Nelson Ard 


Last modification Sep 8&9 


HHH) 
KEKE) 
KEE) 
HEX) 
HKEH) 
KEE) 
HHH) 
HEE) 
FEES) 
KEFH) 


(FEE KE ERE EEE EEE EF EF EEE EEE KEKE EKE EEF ERE REE KER EEK EE KEKE KEKE KH RHEEKHEES ) 


ie Miscpacks 


{ USES no other packages : 

C 15 dul 89 - Addec stringi2s, response _ type : 
Merge wul S9 - Added buffer for xmodm ; 

opti Sen &9 deleted ValsHex 2: 

INTERFACE 

CONST 


(EK EF EEK FHKE RHE KK EKF HEHE 
mesering Mengths 


FathLen = 63; ¢ Maximum complete path name length + 1 3 
FileLen = iz; ¢ Maximum file name length (with extension) =; 
NameLen = §&; t Maximum file name length (without extension) 
Extnlen = 23 « Maximum file extension length ; 

DrivelLen = 23; ¢ Maximum drive letter string 3} 


ey 


wince = 
lank ; 


(* Reprinted with 


Typing helpers 


Same oWak ENC ernt 


be 


a 


4 


No blank between the quotes 3: 
A single blank character 3} 


if | 
mr) 
esa e484 


ae 


By Tom Swan, by permission of Howard W. Sams and Company. 


iS87 Howard W. Sams and Company. 
HF EKEKE KEEFER ERK E LEP HEX 


All rights reserved. 
Continue Swan Excerpt 


KEKE KEKREEERKKEKRE EERE HEED) 


*, 
2 


some modification from Mastering Turbo Fascal Files 
Copyright 


EFRE EERE KE RAKE FREER HE) 


(CHEKEHEEKHEKRERERKRHEREHEKE Continue Swan EX Cempe KEK HHHEEKEEKRKEHE RHEE HEH) 


{ Reyboard control code translations 3 


KeyRight= “D; < Right arrow } 

EeyHome = “Ws < Home if 

KeyUp = Se t Up arrow t 

KeyFgolp = “Rs: { FQUp P; 

KeyLeft = *S; ( Left arrow 3 

KeyEnd = “Zs { End ? 

EeyDown = “~X; < Down arrow 3; 

KeyFgDn = “C; { FigDn i 

EeyIns = “¥V; « Ins y 

KkeyDel = “6; { Del i 

\¥he 

{ File and path name strings > 

FathString = Strinol Pathan Jet CS ViRee eases 
FileString = Stringl FileLen J; ¢t TEST.FAS y 
NameString = Stringf NameLen J: tt TEST 3 
Extnotring = Strinefl Extnlen 6a eee a 
DriveString = Stringl DriveLen J]; tC: 4h 


{ Gther strings += 


Hex Str = Strigg hese: { 4 - digit hex strings (FC9A) 3 
Stree = Str im Gieol) . BU-character strinas +: 
stringiz& = SUPPne m1 2e ea 


tMiscellaneous types 3 


oh 


Fointer to memory bytes } 


be 


Character sets 3; 


ni = “Rytes 


= SET OF CHAR; 


is 1a te | 


ch 
Hs 


rain 
Phar 


7 


4 


Adaed for Spawn, Intrinsic Exec calls 3 


en 


Response type = ( strng, file_type, nothing ): 


Coat 


Added for Farser, -xmadm 3} 


CONST 
Maxblock = 1024; 


(* Reprinted with some modification from Mastering Turba Fascal Files 
By Tom Swan, by permission of Howard W. Sams and Company. Copyright 
1907 Howard W. Sams and Company. All rights reserved. 

FEFKERKEEF EER LFEREFEREEE Continue Swan Excerpt FHERKKEHEERE REE LER ES) 


(EKER EHEKHRKKEKEEEEHEREX = Comtinue Swan Excerpt KEKKEKEKEKKKKHKEKHEEHEES) 


yee 
Buffer = ARRAY Ci..Maxblock] OF CHAR; 


PROCEDURE BumpStrUp ( VAR s : String ); 
{ Convert (bump) all chars in string s to uppercase 3; 


IMPLEMENTATION 


FROCEDURE BumpStruUp (VAR s : String); 


ut 


{ Convert (bump) all chars in string s to uppercase 


VAR 


+ 


MeeePTEGER: itString index > 


REGIN 
Mee i := i tevmbength{ s >) Da 
ofij := UpCasel efij 3 
END; < BumpStrup 3 


- 
! 


BEGIN Unit initializaton 


END. © ONT) Wiscpoack + 


(* Reprinted with some modification from Mastering Turbo Fascal Files 
By Tom Swan, by permission of Howard W. Sams and Company. Copyright 
1987 Howard W. Sams and Company. Ali rights reserved. 

FFEPERPELE FRE ERE HF ERESAFIFee End Swan Excerpt FEE ERP EERE ERE RE HES ) 


en 


APPENDIX U 


SOURCE LISTING FOR UNIT PARSER 


bs 
* 


y 


(KKK KKK KKK K KEKE KKK E KKK KKKKKEKKEEKKEKEKEKEKKKKKEKEKKKKKKEKKKKKKKKKKEKKKEKREESE) 


(HEEX PARSER. PAS HHEE) 
(4¥%*% This 15 the unit that executes all commands for the KHER) 
(¥#*¥% Slave computer. HEX) 
(HR KEKH) 
(KHEX KEK) 
(¥#¥#*% References: Hall, W.V., "When Turbo Isn’t Enough," in HHE*) 
(KEES shammas, N.C., The Turbo Pascal Toolbook, KER) 
(eae ep. 145 - 146, M& FT Fublishing, Inc., 1996.43 
(XEE¥ KEXK) 
( HREE Mefford, M.J., "Runmning Programs Fainlessly *#**) 
(HEEX FC Magazine, v. 7, 1&6 February, 1988. HEHE) 
(HEF HHH) 
(#**#*% Developed by Nelson Ara KEEFE) 
(HER 7 HEE) 
(4##* Last modification Sep 89 HEKE) 


(EH KHE SHEE EKKRK ERR EEE KEE KEEFE HEHEHE KKK EK KE KEKE EKER EERE KK KKE KE KK EERE E EERE) 


UNIT Farser: 


« & Nov 6& : 
( 3 dume 895 - changec sets toa constants; 
< 9 June 89 -added 


argv, argc functions 
acjusted parsename to correctly parse long filenames: 


cif Jun 69 - added buf_to_ string, string_to_buf: 

£20 Jun @9° - added Resolve command to prepare for EXEC call ? 

£ if dul &9 - moved Match_command, internal commana constructs to spawn, 
agged resnanse camstruct to parser_main > 

& 4 Aug 39S - deleted Intrinsic from USES statement 3: 

INTERFACE 


USES MISCPAEL, ErROrCod cesta be =. 


PROCEDURE Farser_ main { Command s : string128; 
VAR Response : StringliZé: 
VAR Restype : Response_type; 
VAR Error_msq : Stringi2é; 
VAR Errtype : Response types: 
VAR Frampt ai a A Ob i a 


{ This procedure parses an MS-DOS command and executes it locally 
Input: Command s 15 the command to be executed with path 


Output: Response is the output of the program 
Restype is the type of Response (string, file, nothing) 
Error Msq is the error output of the program 
Errtype is the type of Error_Msg (string, file, nothing) 
Frompt 15 a Simulated command line prompt after program 
execution 


IMPLEMENTATION 


argtype = ¢ opt, ather ); 


arg rec = RECORD 
arg_type matrquype: 
araq_length es aa 
arg _ index ; byte; 
END; 


arqarray = ARRAY [0..9] OF arg_rec; 
SETOFCHAR = set of char; 
commend buffer = ARRAY C1i..12] OF char: 


Comet 
SPACE 
TARE 
COMMA “GF 
SEMICOLON “a5 
COLON = eas 
SEIS = tS 
MINUS a ae 
SLASH pee ok 
RACK SLASH 
DOT = 8S 
STAR 
NUL 
RPMEDE =o 5 


nou ou 


I 
“ 


nou 
a * 


| 
2 


peemeeor Grive : SETOFCHAR 
Node or_drive : SETOFCHAR 
arg separator : SETOFCHAR 
whitespace : SETOFCHAR 
ant ilon ee CHAR 
Veeteteinmg : FathString = °‘s 


COLON, BACKSLASH 2; 

COLON ]; 

SPACE, COMMA, SEMICOLON, FLUS, MINUS 2: 
SPACE, TAB ];: 

SLASH 1; 


low tl 
mem eam 


-— 
“J 
Ch 


VAR 
arg array : argarray; 
arg_count : byte; 
Command_line : FathString; 
LniGe soy coer 
count : byte; 
(* This variable for use ** only ** by argv() #) 


arg String : sStmine@ear 


FROCEDURE Farse ( Command : string1i28 ); 
1 Used by Farser_Main to count and isolate the command line 
parameters. This procedure loads argc and arav 3 


VAR 
index : Byte; 


BEGIN 
arg string := Command; ‘save a copy of the command; 
fGR arg count :=,O sei ses 
WITH Arqg_array C arg_count J] DO BEGIN 
arg type := OTHER: 
aro length := O; 
arg index := O; 
END s 
ngex i= 1; 
SerOecaui. -= ts 
REPEAT 
WHILE (index < Length ( Command ) ) 
AND (¢( Char (¢ Command € index 1) IN whitespace ) DO 
INC (index); 
WITH arg_array C arg_count j] DO BeGiNn 
TF ingex <= Length { Command ) THEN 
CASE Command € index J OF 
TAB, SPACE : BEGIN 
END; 


SLASH : IF index « length (¢ Command ) THEN 
BEGIN 
(INES Copee a.) 
arg) lengwpe: = 2:05. 12) 
arg_index index; 
arg_type := opt; 
INC ( index ); 
DAC (ormder™) = 
INC ( arg _count ); 
END; 


toon 


Seoe REGIN 
arg_index := index; 
arg type := other; 
arg length := 1; 
INC ( index ); 
WHILE ( index <= Length ( Command ) ) AND 
NOT ¢ Char (Command € index J) IN whitespace ) 
AND NOT ( Char (Command € index J) IN option ) 
DQ BEGIN 
PiGweerg length )5 
INC ( index )3 
END; 
PES ame COUNT ); 
END; ‘BEGIN? 
END <CASE: 
ee t WIth + 
UNTIL index += 
END: <{Farses 


length ¢ Command ); 


FUNCTION argc : byte; 


{ Returns a count of the number of arquements on the command 
line 3: 


argc i= arg_count; 


FUNCTION arqy ( arg count : byte ) : stringl2g; 


{ Returns the arg_count ‘th arguement from the command 


ba} 


line +} 


VAR 
index : bytes 
meme : String Mme: 


BEGTN 
temp := Nullstrina: 
WITH arg_array (€ araq_count J DO 
FOR index i= arg _index TO (arg_index + arg length - 1) DO 
temp := temp + ara_string C index 4; 
argv := temp; 
END; 


ery 


(HH KKKEHKR FREER KEKE KREREKHEREEEHHXHX Start Hal] EX Ceri KEKE EKKHKKEKRKEHRKKKEHHHH) 


FROCEDURE FarseName ( inName : FathString; VAR nameSpec : NameString; 
VAR extnSpec : ExtnString: 
VAR fylespec : Filestring; 
VAR pathSpec : PathString; 
VAR driveSpec : DriveString; 
VAR nodeSpec : NameString); 


{ Breaks down a filespec intG its component parts for Parser_Main, 
Resolve command. From the Hall reference. 3 


VAR 
Count : Byte; 
DatFos : Byte; 
Scar OS 2 yey Ger 
index : integer; 
filespec : pathstring;s 


REGIN 
Count := Length ( InName); 
Ee eat 
MiscFack.BumpStrup( InName ); 
[$V+} 


IF (InNamefCountd IN Fath_or_drive) THEN 
£ do nothing } 
ESE BEGIN 
REPEAT 
COURT. 2= FPRED( Coline 
UNTIL (Count = 0) QR (InNamelCountd IN Fath_or_drive) ; 
END; 


(lsolate Filename; 

rf Copy (Source, Startoos , No of Char) 3} 
fileSpec := Cony (InName, Count + 1, LENGTH (InName) —- Count); 
DELETE (InName, Count + 1, LENGTHiInName) - Count); «(Chop tail oft: 
IF (Count +9 2) Siiae 

IF (InNamecCountl «<2 °:°) THEN 

REPEAT 

Count := PRED | Geis 
UNTIL (InNamefCount] IN Node_or_Drive) OR (Count = 0); 


(+ The library FarseName appears in The Turbo Fascal Toolbook by Namir 
C. Shammas (ed.) and has been reprinted with the permission of the 
publisher M & T Books 1-B00-S22-4372. Minor modifications by Nelson 
Ard, 

SHFREFE ERE ERELERKREKERFKES © ©60Comtaunue Hall Excerpt KRKEKKKEKEFEKRFKEKEEREEE) 


(KEKE HKKEREKEKREEERERERER Continue Hall Excerpt XH KHHHEKHEKERERERERERE) 
CASE Count OF 
O : pathSpec := InName; 
ie « eoVRtay Error ss 


ELSE BEGIN 
pathSpec := Copy (InName, Count + 1, LENGTH (InName) - Count); 
{Gm@p tail oft: 
DELETE (InName, Count + 1, LENGTH(InName) —- Count); 


CASE InNamelPRED(Count)] OF 


COLON : BEGIN 
Men ep ot aii Opt. 
DELETE (InName, Length (InName) - 1, 2): 
nodeSpec := InName; 
END; 


Qi 
t-t 


oar. 2. ' EEGIN 
GriveSpec := InNametFRED(Count)] + ‘3°; 
Peerage, Count — 1. 2); Chop tail aff? 
Count := Length (inName): 
TF (Count = 2: AND (FOSC's:°, InName) = Count —- 1) 
THEN IF CENGTHCInName) > 10 THEN 
modespec := Copy (inkame, 1. 3 
ELSE nmocesper := Ltopy (InName, i. 
LENGTH (inName) —- 2) 
Poe. oYaeas Error imnenode part 3 
LF (Cmpeeipeere, > aie iE Nae 


Shi. 


A 
§ 
é 


5 


ELSE 9. SYnta EGarer, Grive fee aweirewcnaracter +; 


iler 
eo BOSieerey. 1 leSpec): 

tFPos <3 ©O THEN BEGIN 

pomopee. — COPYCrrrespee, DetFos + My 3): 


(* The library FParseName andpears in The Turbo Fascal Toolbook by Namir 
C. Shammas (ed.) and has been reprinted with the permission of the 
publisher M & T Books 1-800-233-4372. Minor modifications by Nelson 
Ara. 

HAE EERHAFEREREREFIRFERREFE Continue Hall Excerpt 2# ex HKEREER FEES EF EXED) 


ie 


(HHEKKKEKKKEEKKEKEKRHEKEEEFHERE = Continue Hall Eve c KKEKEKKKKEKKEKKKKEKKEKEKEKEES ) 


DELETE (fileSpec, DotPos, (LENGTH(4ileSpec) — DotPos)+ivs 
END 
oe 
extnSpec := ‘'3 
IF LENGTH(fileSpec) = & THEN 
DELETE (fileSpec, 9, LENGTH(fileSpec)-8); 
StarFos := PQS( STAR, fileSpec ); 
IF StarFas <2 O THEN BEGIN 
DELETE (fileSpec, StarPos, (LENGTH(fileSpec)-StarPos)+1); 
FOR Count := LENGTH(fileSpec) TO 7 DQ 
fileSpec:= fileSpec + ‘7’: 
END; 
Namespec := filespec: 
StarPos := FOS (STAR. ex tiepee): 
IF StarFos «<> O THEN BEGIN 
DELETE (extnSpec,“sterros, WSenb tre!) esjee-seabros) tl). 
FOR Count := LENGTH(extnSpec) TO 2 DO 
SxtnSpec := extmapec + 2 e: 
END: 
IF NOT ¢ extnspec = Nullstring ) THEN 
fylespec := Namespec + DOT + extnspec 
ELSE fylespec := Namespec; 


(* The library FarseName appears in The Turbo Fascal Toolbook by Namir 
{. Shammat fed.) and has been reprinted with the permission of the 


publisher M & T Books 1-800-323-4372. Minor modifications by Nelson 


Ard. 
KEEREREREEREE ERE FEE REF EREEELE End Hall Excerpt *# Xk RKHREEHHEREREEEE ) 


TYPE < used By Rescive_ Command and Farser_ Main 3} 


Type of file = (BAT File, COM_File, EXE File, Directoree, Other_File, 
Fethname ): 


VAR tf initialize 
DAthopeGe eer 
fi leSeee ! F11 
nodespec, 
nameaspec : NameStrina; 
Extnspec f ex tisers ae. 
GriveSpec : Drivestruime. 
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FUNCTION Resolve_command ( VAR arguement : FathString ) : Type_of_file; 


< The MS-DOS Exec function needs a complete file specification (drive, 
path and filename including extension ta run a child process. 
Resolve command examines the first arguement in an MS-DOS command 
line, arguement, and fills aut the complete path information if 
needed, then uses this path to conduct a file search for the 
exact filename. The completed file specification 1S returned to 
the caller along with the type (COM, EXE, BAT, or path) for 
execution ar directory change action. The building blocks 
needed ta construct the complete file specification have been 
placec in the variable immediately above by FarseName. The 
deterministic algorithm for detecting the correct executable file is 
meomet(hettford, 1988, p. 327). 


Input: arguement, the command file to be searched for 


Output: arguement, adjusted toa specify a complete path 
The function returns the type af file as an enumerated type 


VAR: 
Ptanto : SearchRec; 
resolved, 
relative directory : boolean; 
Pees FathString: 


REGIN 
resolved := FALSE; 
SGeemir { 0, Dir ); 


r 


t lack of a leading backslash could mean a simple 
request to log to another drive } 
relative _ directory := ( pathSpec £€ 1 J <2 BACKSLASH ); 
IF relative directory AND (¢ Dir Ci] = driveSpec [1] ) 
QR (Drivespec PLANE )) THEN 
{ Fill out the complete path specification } 
arguement := Dir + RACKSLASH + arguement: 


IF extnSpec = NullString THEN BEGIN 
< The command does not fave a file extension, could be a 
directory. Search the now complete path for a file 
with the same name, in the reverse order that the 
MS-DQS cammand pracessor would. Add the appropriate 
extention ta arguement if matched. End up with the 
file with precedence to execute. 3 


ied 


FindFirst ( arguement + °.BAT’, Archive, DirlInfo); 
WHILE DosError = 0 DO 
BEGIN 
IF DirInfo.attr AND Archive <> © THEN BEGIN 
arguement := arguement + ‘.BAT’; 
resolve command := BAT_File;: 
resolved := TRUE; 
END; 
FindNext (DirInfo)s; 
END; 


FindFirst ( arguement + ‘.COM’, Archive, DirlInfo); 
WHILE DosError = 0 DQ 
REGIN 
IF DirInfo.attr AND Archive «=> O THEN BEGIN 
arguement := arguement + °.COM’; 
resolve command := COM File: 
resolved := TRUE; 
END: 
FindNext (DirlInfa); 
a8 SH 


FindFirst ( arguement + ‘EAE’, Archive, Dirinfo); 
WHILE DosError = 0 DQ 
BEGIN 
IF DirInfo.attr AND Archive «=> © THEN BEGIN 
arquement := arguement + °.ExE’; 
resolve command := EXE File; 


resolved := TRUE: 
be 

FindNext (Dirintfa): 

END: 
END 

ELSE BEGIN ‘f extension not NULL, ready to execute 3; 

IF (extnSpec = ‘COM’) THEN BEGIN 

Resolve command := COM File: 

resolved := TRUE; 
END 


ELSE IF ‘extmSpec =) BAL 7° THEN@ Beit 
Resolve command := BAT File; 
resolved := TRUE; 

END 

ELSE IF (extnSpec = ‘EXE’) THEN BEGIN 
Resolve command := EXE File; 
resolved := TRUE: 

END 

ELSE BEGIN 
Reeolve_command := Other_file; {¢ a path specification * 3} 
resolved := TRUE; 

END 

END: 


(* changed this *) 

IF NOT resolved THEN BEGIN 

FindFirst ( arguement , Directory, DirInfo); 
WHILE DosErroar = © DQ 


BEGIN 


IF DirlInfo.attr AND Directory «<> 0 THEN BEGIN 
Resolve command := Directoree; 
resolved := TRUE; 


END; 


mumadNext (DiriInta); 


END; 


END; 


IF NOT resolved THEN Resolve_command := Fathname; 


END; <tResolve Command: 
(¥—-------—--—---- - —- - - - - — — - en ee ¥) 
FROCEDURE Farser_main ( Command = : stringl2é: 


VAR Response : Stringl2s; 

VAF Restype : Response type; 
VEeRecemonemsg © String] 28% 

VAR Errtype : Response type; 
VAR Prompt sneak gta: ot | 


£ Thls procedure parses a command line similar in form ta an 
MS-DOS command, and executes it if possible an the local 


machine 
input: Command s 1= the command to be executed with path 
Qutput: Response 1s the output of the program 
Restype is the type af Response (string, fil€é, nothing: 
Espa 1Sa Tamene Srrar Olean of the srogram 
Errtype is the type of Error_Msg (string, file, nothing) 
Frompt is a simulated command line promot after program 
ex ECiutIGNn 
Sane NULL String : String==  ; 
Pement Drive fepytre = Ure. Used wren ChDir + 
VAR 
Command : Internal Command; 
arg count : byte; 
index byte: 
cmoaline 
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Current _Dir, 

program name : FathString; 
File type : Type_of File; 
Batch : boolean: 


FROCEDURE Init parse; 


t 


t Break the command line into parameters, store the components 
of the first arquement (normally the command itself) 3 


VAR 
index : byte; 


BEGIN 
Farse (command_s); ¢ load argc, argv 
pathspec := argv(Q); 
filespec := Nullstring: 


ae 


| 


extnspec = Nullstring: 
drivespec := NullString; (¢Blanks i: 
nodespec = Nullstring; 


£ now break the first arguement into components >; 
Parsename ( pathspec, NameSpec, extnSpec, fileSpec, 
pathspec, drivespec, nodeSpec ); 


END; < Init _Parse + 


BEGIN 
Init Parse; 
IF ¢ Lenath ( Drivespec ) = 2 ) AND (¢( argc = i ) 


4 


« Drive change only ; 
THEN BEGIN 


command s := “CD ° + command_s; 
Init Parse; < redo with added command +: 
END; 


If Match command ‘ FileSpec, Command ) THEN BEGIN 
{ command can be handled by *# this * program 3; 
IF marqo. -=9 i amen e ees 
cmdiine := Nullstring; < moa command tail 3 
mam inoex 3:= 1 10 varge — 1) 2G 
Cmdline := Cmdline + argv(index) + SPACE; 
£ trim trailing space 3} 
IF Cmdline £ Length ( Ciieinemy 1 = SPeGeairer 
Cmdiine := Copy SeGmeliieyeds, Length <emdline > ae 


END: 
* Preeess as 2 DUDE Sin iige seme 
Froacess intrinsic command ¢ Command, cmdline, Response, Restype, 
Error msg, Ermertype, Seenei a 
END 
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ELSE BEGIN ¢ prepare for a child process ; 
program_name := argv{Q); 
File Type := Resolve_command ( Frogram_Name ); 
Bese File fype OF 
eM File. 
BxE File, 
BAT File : BEGIN 
Batch := ( File Type = BAT File ); 
cmdline := Null String; 
Ta anja lo im@ierenm imdex <= 1 10 arge — 1 DO 
Cmdline := Cmdline + SPACE + argv(index);: 
Run Local ( Frogram_name, cmdline, Response. Restype, 
Error_msq, Errtype, Prompt, Batch ); 
end; 
ELSE BEGIN { command did nat parse, notify Master > 
Errtype := nothing; 
System.,GetDir ( Current Drive, Frompt ): 


bone pa Firomoteiiae +. $ 
Restyoe := strng; 
Response := ‘Slave: syntax error’; 


eee CEE SE > 
ep: iCASE>S 
END: 
END; iFarser mains 
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en 


APPENDIX V 


SOURCE LISTING FOR UNIT REDIRECT 


si 
J 


( HEH HHH HEHEHE EEE LH EKER EE HEHEHE HEE IEEE HEHEHE HEE HEHE IEEE HEHE HEHEHE HEHE HEHEHE HEE EEE EEE EEE) 
(HEHE REDIRECT. FAS HEHEHE) 
(4#¥*¥% This is the unit that accomplishes redirection of the HEHE) 
(#*¥** Standard Input and Output file handles normally assigned ****) 
(¥*¥*#* by the MS-DOS command processor to files to capture the *#**) 


(¥¥*¥*% Output of a program running under the Slave computer HHEX) 
(#*#*# control. Variables are loaded with the file names for HEHEHE) 
(¥¥¥*% later reference. HEHE) 
( KEX¥ KEKE) 
(¥#%% Reference: Defenbaugh, G., "Parents, Children, HE¥H) 
(HEX Redirection, and Fiping with DOS Functions HHEK) 
(HEH 43H and 46H, Frogrammer’s Journal, Nov/Dec KEKE) 
(HEHE 1ISS& prea. HHEK) 
(FEF¥ HEF) 
(##4*% Developed by Nelson Ard KEKE) 
(HSH ~ ; KEEK) 
(F¥*#* Last modification Sep 89 HEHE) 


(PEEK FEEL EK EF EEK EE KE EEERE KE EEE KEE EEE EEK HEE RHEE HE KE EER KEER EE HEE EN EE KEES ) 
LINTT Redirect: 
(* Modification history 
22 Jul 89 - Chained ErrorNum variables through Close File Handle 
call 
- Flaced two string variables in interface section far 
external units to find filespec for the response, error 
files while using standard TF file functions 
4 Aug 89 - Absorbed FileDecl] UNIT as include file *) 


INTERFACE 


Jone UG 


ay 
: 


weGr t,t Seas 


1 


“3 
FROCEDURE Restore CRT Assignments; 


© Optional oracedure to replace the standard files Input and Qutput 
with textfile drivers in the CRT unit for speed. In turns out that 
the CRT Unit does this on initialization, but disallows I/Q 
redirection by doing so 
(Turbo Fascal Owner’s Handbook, 19987, p. 377) +} 


PROCEDURE Init _Redirect_Unit; 


{ Required to reset I[/0 to the MS-DOS standard file handles, which 


may then be redirected 


Y, 
J 


FUNCTION Redirect _Std_Input : boolean; 


{ Redirect program input from a predefined file 3 


FUNCTION Redirect Std Qutput : boolean; 


{ Redirect program output to a predefined file >; 


+ 


FUNCTION Redirect _Std_ Error : boolean; 


{ Redirect program error output to a predefined file 3 


> 


FUNCTION Redirect_All Output : boolean; 


{ Redirect program output and error output ta a predefined file : 


FUNCTION Restore Std_Input : boolean; 


{ Restore program input to the standard file handle : 


bay 


FUNCTION Restore Std Output : boolean; 


{ Restore proaram output to the standard file handle 3} 


‘, 


meee rioh Restore Std Error : boolean; 


{ Restore program error output ta the standard file handle : 


FUNCT I 


« Restore program output and error output to the standard file handle 


VAR 


Response File, 


Errors File 


IMPLEMENTATION 


CONST (These are the predefined standard and redirected files; 


N Restore 41] Qutput 


; Boolean; 


FathString; 


cmiS-DOS predefines 


mee |. a 
Smet : 
Stor we 
St dAux 
StdFeirn 


word 
word 
word 
word 
word 


Hou 


Hl 


H il hj} we 


Ch 
5 
a 
3 
$ 


q 


(x 
(3% 
(# 
(% 
(* 


“Redirection takes 


the following handles} 

File handle for Standard Input +*) 
File handle for Standard Output *) 
File handle for Standard Error *) 
File handle for Standard Auxiliary *) 
File handle for Standard Frinter *) 
place from/to these files: 


We 7! 


+ 
J 


Std Output File Temp : Stringf[21] 
Std_Input_ File Temp : Stringf21] 
Std_Error_File Temp : Striggizr 
CONST Make_Dir Byte = #39; 
Remove Dir Byte = $24; 
Change_Dir Byte = $28; 
Create Handle : Byte = #3C; 
Qpen_Handle : Byte = #3D; 
Close Handle : Byte = $36; 
Read Handle : Byte = #3F; 
Write Handle Byte = $40; 
Delete Entry : Byte = #41; 
Move Ftr : Byte = #42; 
Change Mode Byte = #43; 

Dup Handle Ryte = £45; 
FDup Handle Byte = $464; 
Seton i: : Byte = $47; 
Find First File : Byte = #4E; 
Find Next File : Byte = #4F:; 


VAR 
fe hie ee ral i= 
ErRero er le, 
Gt cd Loree 
Savec Std. in, 
SaVee om eect 
Saved Std Emm. 
Recirin, 
areal eee 
REG rErr 


Text: 


word; 


= "Ci \SeratehnxGtet., hire: 
= “€:\Scratch\INeT. TMF’: 
= “CrSeratch\trr. TMP’: 


PROCEDURE Init Bedirecistgi:. 


t Qptianal procedure ta replace the standard files Input and Output 
with textfile drivers in the CRT unit for speed. In turns aut that 
the CRT Unit does this an initialization, but disallows 1/0 
redirection By doing so 


(Turbo Fascal Owner's Handbook, 1987, p. 3/7/7) } 


BEGIN 
Assign ¢ Input, me 
Reset Ooiicieneiee? 
Assigr ¢ Output, Ee 
Rewrite ¢ Qutput ); 
END: 
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FUNCTION Duplicate Handle ( Handle : ward; 
VAR ErrorNum : word ) : word: 


emetit : Handle, a file handle to an open file 
Qutput: The function returns a second file handie 
for the same file. Hoth handles use the same 
file pointer 
ErrorNum 16 returned by MS-DQS: 
#04 : No free handies left 
#66 : Handle 1s not currently open 


VAR Regs : Registers; 


REGIN 
Regs. AH := Dup Handie; 
Regs.Bx := Handle; 
Raer (sel, Regs); 
IF ¢( Reas.Flags AND FCarry ) = © THEN KEEGIN 
Duplicate Handle := Regs.AXx 
END 
eee BEGIN 
ErrorNum := ErrorNum + Regs.AXxs 
Duplicate Handle := #FF 
END 
END: 


FUNCTION Close File Handle ( Handle : word: 
VAR ErrorNum : word ) : Hoolean;: 
peeemott : Hendle, a file handle to an open file 
Output: The functian returns TRUE if the operation was successful 
ang the file closed. All internal buffers are flushed. 
If FALSE, an invalid handle was specified. 
Sy PamNim 1S Peturned@ by Se DOS: 
FOG : Handle is not currently open 


VAF Reqs : Registers; 


REGih 
Regs.AH := Close Handle; 
Regs.AL := #0; 
Regs.BX := Handle: 
(tie (21, Reqs): 
IF ¢€ Regs.Flags AND FCarry ) = © THEN REGIN 
Clase File Handle := TRUE 
END 


eva 


ELSE BEGIN 
ErrorNum := ErrorNum + Regs. Ax; 
Close File_Handle := FALSE; 
END 
END; 


FROCEDURE Redirect_Handle ( Handle, Red _Handle : word; 
VAR ErrorNum : word )3; 


{ Input: Handle, a file handle to an open file 
Red Handle a file handle to a second file 
Output: The file referenced by Red Handle is closed 
Red Handle now uses the same file pointer as 
Handle, and either may be used to acces the file 
ErrorNum i¢ returned by MS-DOS: 
#04 :; No free handles left 
#06 : Handle is not currently open 


‘, 
2 


VAR Regs : Registers; 


BEGIN 
megs.AH := FDup Handle; 
Regs.BX := Hanale: 


Regs.CX := Red _Handie; 
Dat: (pie eine cS Js 


IF ( Reae.Flags AND FCarry ) = 0 THEN BEGIN 
END 
ELSE REGDM 
ErrorNum := ErrorNum + Reqs.Axr; 
END 
END: 


FUNCTION Redirect _Std Output : boolean; 

{ Redirect program output to a predefined file 
On entry, StdOut refers to the standard output 
device driver. A copy of StdQut i¢ saved, and 


StdQOut is redirected to aur predefined output file 


The function returne TRUE 1f successful 


VAR ErrorNum : word: 
BEGIN 
Zo(ataleiltp et — oe 


issign ( Qutput_File, Std Output File Temp ): 
Rewrite ¢ QutFut File ); 
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Saved Std Out := Duplicate_Handle ( StdOut, ErrorNum 2 
Redirect Handie (¢ TextRec( Output_File ).Handle, StdQut, ErrorNum ); 
Betigeet Sta Outpwt <= ( ErrorNum = 0 ); 

END: 


FUNCTION Restore Std Qutput : boolean; 
{ Restore program output to the standard file handle 


On entry, StdQOut refers to our predefined file 
StdQut is rereferenced to the standard output 
device driver 


The function returns TRUE if successful 


od. 
J} 
VAR ErrorNum : word: 


BEGIN 
SmeorNum := OO; 
Redirect Handle ( Saved Std Out, StdOut, ErrorNum ); 
IF Close File Handle (¢ Saved Std Qut, ErrorNum ) THEN 


ei — 5 

ieee ( Output File ); 

TF jOResult = 0 THEN BEGIN 
Response File := Sted Dutput File Temp: 
Restore Std Output := ¢ ErrorNum = 0 ); 
END 


efet BecINn 
Response File := NuliStr 
Restore Std Gutout := FA 
END; 
at 5 
ENDS 


s 
§ 
i] 


aoa. 


FUNCTION Redirect Std Input : boolean: 

< Redirect program input from a predefined file 
Qn entry, Stdin refers to the standard input 
device driver. A copy of StdIn is saved, and 


StdIlm 15 redirectec toa our predefined input file 


The function returns TRUE if successful 


VAR errorNum : words 
BEGIN 


ErrorNum <= O; 
Pssign ( Input File, Std_Input_ File Temp ); 


ieee! 


Reset ( InFut_File ); 
Saved Std_In := Duplicate Handle ( StdIn, ErrorNum ); 
Redirect_Handle ( TextRec( Input File ).Handle, StdiIn, ErrorNum ); 
Redirect Std Input := ( ErrorNum = 0 )s 

END: 


FUNCTION Restore Std Input : boolean; 


Pacts 


Restore program input to the standard file handle 


On entry, StdiIn refers ta our predefined file 
StdiIn is rereferenced to the input 
device driver 


The function returns TRUE if succes¢eful 


VAR ErrorNum : word: 


BEGIN 
Ee eGigien tists 
Redirect Handle ( Saved Std In, StdIn, ErrorNum ); 
ele: : 
Close ( Input File }; 
IF Ciese File Handle ( Saved™Sta In, Greet) Price 
Restore Std Input += ¢ ErrorNum = © ) AND (10Result «2 0): 
Hee nah 

ENDs 


FUNCTION Redirect Sta Brrer esheets. 


© Redirect program errer autput to a predefined file 
On entry, Stdtrr refers to the standard output 
Gevice Griver. A capy af StdErr ¥> saved. and 
Stderr 1s recirected to our predefined error file 
Ivercaomes inability to redirect from the MS-DQS 
command lire 


= 


ne function returns TRUE if succeseful 


EL 


VAR errorNum : wards 
REGIN 
FrrearNum : 
Assign ( Error_File, Std_Error_Filie_Temp ); 
Rewrite ¢ Error File ):; 
Saved Std Err := Duplicate Handle ( StdErr, Errornam >; 


= 


Redirect_Handle ( TextRec( Error_File ).Handle, StdErr, ErrorNum ); 
Redirect Std Error := ¢ ErrorNum = 0 }); 


END; 


FUNCTION Restore _Std_Error : boolean; 


{ 


Restore program error output to the standard file handle 
Qn entry, StdErr refers to our predefined file 
StdErr is rereferencedc to the output 


device driver 


The function returns TRUE if successful 


VAR ErrorNum : word: 


BEGIN 


SerorNum := O: 
Pee tect Handle ( Saved Std Err, StdErr, ErrorNum }); 
ey > 
meose ( Error File ); 
IF Close File Handle ( Saved _Std_ Err, ErrorNum ) THEN: 
IF TOReeult = © THEN BEGIN 
Begs Pile <= Std Error File Temp: 
Restare Sta Error := ( ErrorNum = 0 }: 
END 


fens — Nei | Str: 
be=core Std Error := FALSE: 


END: 


FUNCTION Redirect All Output : boolean: 


f 
. 


Redirect program output and error output to a predefined file 


Qn entry, StdOut refers ta the standard output 
device driver. A copy of StdQ0ut is saved, and 
StdOut is redirected to our predefined output file 


Qn entry, StdErr refers ta the standard output 
sevice driver. A capy of StdErr is saved, and 
stdErr 12 redirected to our predefined error file 
Overcomes inability to redirect from the MS-DOS 


command line 


tiem Uincicien returns TRUE 14 successful 


ee 


VAR ErrorNum : word; 


BEGIN 
EnrorNum + =iile 
{$I-} 
Assign ( Output File, Std Output File Temp ); 
Rewrite ( OutPut File ); 
Saved Std Out := Duplicate Handle ( StdQOut, ErrorNum ); 
Saved Std Err := Duplicate Handle ( StdErr, ErrorNum ); 
Redirect Handle ( TextRec( Output_File ).Handle, StdOut, ErrorNum ); 
Redirect Handle ( TextRec( Output File ).Handle, StdErr, ErrorNum ); 
Redirect_Al]l Output := ( ErrorNum = 0 ) AND (TOResult «<*> 0 ); 
ce its 
END; 


FUNCTION Restore All Qutput : boolean; 
i Restore program autput anc error output to the standard file handle 


On entry, StdOut refers to our predefined file 
StdOut is rereferenced to the standard output 
device driver 


Orn entry, StdErr refers to our predefinec file 
Stderr is rereterenced to the output 
device driver 


The function returns TRUE if successful 


4 


VAR: 
ErrorNum : words: 


REGIN 
Error NUmes= Us 
Redirect Handle ( Saved Std Out, StdQut, ErrorNum ); 
IF Close File Handle ( Saved Std Out, ErrorNum ) THEN; 
Redirect Handle ( Saved Std Err. Stdbam, Emromivemn ) ; 
IF Clase File Handle ( Saved Std Err, ErrorNum ) THEN; 
pea ioy 
Close { Output File ); 
IF JOResult = 9 THEN REGIN 
Respanse File := Std _Qutput_ File Temp; 
Restore All Output := ( ErrorNum = 0 34 
END 
Else: BEGIN 
Response File += NuilStr: 
Reetore All Qutput := FALSE; 
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END; 
mei +} 


END: 
FROCEDURE Restore CRIT Assignments; 


{ Optional procedure to replace the standard files Input and Output 
with textfile drivers in the CRT unit for speed. In turns out that 
the CRT Unit does this on initialization, but disallows I/O 
redirection by doing so 
(Turbo Fascal Qwner’s Handbook, 1987, p. 377) 


Nive (haere) 5 
i Metie 2s 
AssianCRT ( Output ); 
Rewrite (eViE PILE <) 5 
END; 


BEGIN (* na initialization required *#) 
END. 


ie 


nny 


%, 
2 


APPENDIX W 


SOURCE LISTING FOR UNIT SPAWN 


(EHH HEHEHE HEHEHE KEKE KEELE KEKE EEK EEE KEKE KEE KEKE KEKE KEK EKHEHEKREREKKEEEEKES ) 


(HERE 
(HHH 
(HEH 
(HEHE 
(HHH 
(HHH 
(H#H* 
(EPES 
(HRE* 
(HEE 
(FHKE 
(HH HX 
(HHS 
(¥¥RE 
(HEF* 


SPAWN. FAS 
This 1s the unit that executes child processes under 
MS-DOS for the Slave computer. Included is a function 
to detect MS-DOS commands to be handled by the 
program rather than by a spawned copy of Command.com. 
The function is placed here to prevent circular unit 
dependencies while restricting visibility to unrelated 
units, 


"Running Programs Fainlessly 
7, 16 Febrite yy. aoe 


Reference: Mefforc, M.d., 


FC Magazine, v. 
Developes by Nelsan Ard 


Last modification Sep 89 


HEHE) 
KEE) 
HEHE) 
HEE) 
HEHEHE) 
KEE) 
HHEX) 
KEKH) 
HEEHX) 
HEHE) 
HHEH) 
HEHEHE) 
EXE) 
HEHE) 
HHEH) 


(EEK KEKE KEKE KEKE K EEE ER KEKE HERR KE KEKE FE KH KKK EE KEKE KEK ERK KERR E KK EKER ES ) 


(¥ fo 


*) 


UNIT 


INTER 


wee 


TYRE 


Int 


CONST 
Com 


Bion; 


Datacom, Dos, Crt, Redirect, Support, ErrorCod, Miscpack; 


ernal Commanc = 
MEDIR, PRUMT, RD, REN, SENATE iD ine 


mand Name : Array CInternal Command] OF StringL[6] = 
( -CDe 8 @CHDIRG | GORY eel aan 
"ERASE “& EQGUIE ewes Schill oie 
"RD', ‘REN’, “RENAME’, ‘RMDIR’ ): 
“Port : String£4] = ‘CCOM1]’: 


L7G 


dification history 
Sen 69 - added FROMFT to the list of internal commands 
Mar 70 - deleted Find Environment (duplicated in Unit Support 
Spawn: 
FACE 


(CD, CHDIR, COFI, DEL, DIR, ERASE, EQUIP, CSaaiie 


‘FP ROMP Tig 


VAR 


Redirection : boolean; ¢ set By the caller in the main program to 
force all command program output to file 


4 


for remote display } 


FUNCTION Match_Command ( VAR FileSpec : FileString; 


VAR Command : Internal_Command ) : boolean; 


{ Matches the command in FileSpec against the above list of commands 


processed internally by this program. 
Input: FileSpec is the command/file name 
Output: FileSpec i5 adjusted to contain the complete path, if any 


Command is an enumerated type for internal commands 
The function returns true if & command is matched 


Frocedure Run_Loceal { FrogramName, Cmdline : string; 


VAR Response : stringl2s;: 

VAR Restype : Response type; 

VAR Error_msq +: stringl2é; 

VAR Errtyne >: Response type; 

VAR Frompt : stringi2ze; 
Batch : boolean ); 


t Used to spawn 6 child process, program name in Command, 


Lo 


narameters in Cammanc Tail. Frogram output, error responses, 
and = follow on command line prompt as it would appear from a 
lecai command line processor are returned to the calling 
program, 


Input: FrogramName is the command to be executed with path 
Cmdline is the command tail for FProgramNeme 
Hatch lets Run_Local know a Batch file 1s to be executed 


sponse is the autput of the program 

stype is the type af Response (string, file, nothing) 
Error_Msq is the errar output af the program 

Errtype is the type af Error_Msg (string, file, nothing) 
Prompt if a Simulated command line prompt after program 
execution 


Output: Re 
{= 


Loe 


FROCEDURE Frocess_intrinsic_command ( Command : Internal_command; 
Command tail : Stringi28; 
VAR Response : String128; 
VAR Restype : Response type; 
VAR Error omsg : Stmingiges 
VAR Errtype : Response type; 
VAR Frompt : Strrng) 2a ae 


rc 


{ Used to execute a command normally processed internally by 
command.com. {fhe program name i5 found in Command, 
parameters in Command_Tail. Frogram output, error responses, 
and a follow on command line prompt as it would appear from a 
local command line processor are returned to the calling 
program. 


Input: Command is the command to be executed with path 
Command Tail 1s the command tail for Command 


Output: Response is the output of the program 
Restype is the type of Response (string, file, nothing) 
Error _Mcg is the error output of the program 
Errtype is the type of Error_Msq (string, file, nothing) 
Frompt is a Simulated command line prompt after program 
exercutLian 


IMPLEMENTATION 


FUNCTION Match Command ( VAR FileSpec : FileStringa; 
VAR Command =: Internal Command ) : Boolean: 
{ Matches the command in FileSpec against the above list of commands 
processed internally by this program. Returns true if a command 
1S matched 


ih 


Ipput: Pxbesseq ea he commanc/fiile name 


un 


Wt 


Output: FileSmec if adijustead to contain the complete path, if any 
Command 12 an enumerated type for internal commands 
The function returns true 1f a command 15 matched 


VAR 
Found : boolean; 
index : Internal Command: 


BEGIN 
Bouma != Palos 
FOR index := CD TO RMDIR DO 


IF ( Fos ( Command _Namel€ index J], FileSpec ) = 1 ) AND 
( Length ¢ Command_Namel index ] ) = Length ( FileSpec )) THEN 
BEGIN 
Bewhiees=  UiNwe. 
Command := index; 


END; 
Match Command := Found; 
END: 
Frocedure Run_Local ( FrogramName, Cmdline : string; 


VAR Response : string128; 

VAR Restype : Response type; 

VBR Error _msQo saectringed 23; 

VAR Errtype : Response type; 

VAR Frompt Strings: 
Batch : boolean ); 


ety 


Ilsed to spawn 3 child process, program name in Command, 
parameters in Command Tail. Frogram autput, error responses. 
and a fallow an command line prompt as it would appear from a 
local command line processor are returnec to the calling 
oracram. 


The use of & secondary copy of COMMAND.COM to run Batch files is from 
ivettoeea, 1995, p. 22%em 


Input: FrogramName is the command to be executed with path 
Cmcline is the command tail for FroaramName 
Batch lets Run_Lacal know a batch file 1s to Be executed 


Restype is the type of Response (string, file, nothing) 
Error _Meq is the error output of the program 

Errtype is the type of Error_Msq (string, file, nothing) 
Frampt 16 a simulated command line prompt after proaram 
execution 


Dutput: Response ic the autput of the program 
1 


ae 


begin 
CheckBreak := TRUE: 
IF Batch THEN BEGIN 


Cmdline := ° /ce “© + programname + Cmdline;: 

{ set up temporary command.com 3} 

FrogramName := Find_Environment (¢ ‘COMSFEC’); 
END: 
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GetDir (QO, Frompt); 

IF Redirection THEN BEGIN 
Init Redirect Unit; 
IF Redirect_Al] Output THEN; 

END; 

Exec (Programname, Cmdline); 

IF Redirection THEN BEGIN 
IF Restore_All Output THEN; 
Restore_CRT_ Assignments; 

END: 

RS Cleanup; 

RS Restore ( Current_COM ); 

Restype := file_type; 

Response := Redirect.Response file; 

Errtype := strng; 

IF doserror <> 0 THEN BEGIN 
Error_Msg := Error_Code C Dostrror J; 


END 
else Error_Msg := °'; 
System.ChDir ( Prompt ); 
Promnot += RRemMp. eu eee 
END: 
CONST 
SPACE << Chair =a 


FROCEDURE Frocess_intrinsic_ command ( Command : Internal_cammand; 
Command tail : eStrmqlage 
VAR Response : String1l26; 
VAR Reetype ; Response_ type; 
VAR Error_msg : StringlZ8; 
VAR Errtype : Response type; 
VAR Frompt » Sheprghase le 


i Used to execute a cammand normaliy pracessed internally by 
command.com. The grogram mame is found in Command, 
parameters in Commanc_Tail. Frogram output, error responses, 
and 2 follow an command line prompt as it would appear from a 
1ocal commana line processor are returned to the calling 
program. 


Input: Command is the command to be executed with path 
Command _Tail is the command tail for Command 


Output: Resconse is the output of the program 
Restype is the type of Response (string, file, nothing) 
Frror_Msg is the error output of the program 
Errtype is the type of Error_Msg (string, file, nothing) 
Fraompt 15 & simulated command line crompt after program 


SS ei. 7 


200 


CONST Current_Drive : byte = 0; 
Ratch mode : boolean = TRUE; 


VAR IOR : word: 
Current _Fath : PathString; 
List : EquipmentListType; 


REGIN 
CASE Command OF 


Ciel 

nD, 

BD. 

CHDIR, 

eb 

Froamt, 

RmDir : BEGIN 
ea 
Restype := strng; 
Errtype += strhmon 


CASE Command OF 


Ch 
ChDir : System.ChDir ( Command_tail ); 


ie 
MEDIRF : System. MkDir ( Command_tail }; 


FROMT : GetDir ( Current_Drive, Frompt ); 


nelle 
RMDIR : System. RmDir ( Command tail 3}; 


END; 
IQR := IOResult; 
eee CO Tis 
Binge sincoe.— ‘G + error Code Saar 
BESesemr or msg t= ~ § 
GetDir ( Current _Drive, Frompt ); 
Response := ‘5 
fheoOtp. es Frenne t 2 3 
co i 
END 
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DE 
Poe 
DIR, 
REN, 
aie le 
ERASE , 
RENAME : BEGIN 
IF Command = LS THEN Command := DIR; 
Run Local ( Command_Name (€ Command J] + SPACE, 
Command Tail, 
Response, Restype, Error_msaq, Errtype, 
Frompt, Batch Mode ); 
END; 


EGQUIF : begin 
CheckBreak := TRUE; 
GetDir(O, Frompt): 
IF Redirection THEN BEGIN 
Init_Redirect_Unit;: 
IF Redirect _All Output THEN; 
END: 


Suppert.GetEquip ( List ); 


ae := strmee: 
z rection THEN BEGIN 
IF Restore_All Output THEN; 
Restore CRT Assianments; 
Restype := file_type; 
Response := Redirect.Response file; 
IF doserror «> 0 THEN 
Error_Msq := Error_€ode € Doster cam 
else Error_Msg := °°; 
END 
ELSE eer 
Restype := strng; 


H+ fT} 


vie 
ed} 


qe 
c 
= 


Response := ‘Unable’; 
Erromenmsq s=>  ; 
ENDs 


System.ChDir ( Frompt ); 
Frempt := Pmemet +> 2s 
END: 


END? <GASer 
END: 


REGIN 
Redirection := TRUE: <¢ output is normally redirected to file =; 


end, 


BENS, 


en 


; 


APPENDIX X 


SOURCE LISTING FOR UNIT SUPPORT 


( HHH IH IH HEH HHH HE HEH HEHEHE HERE EE HEHEHE IH HE HEHEHE HEHEHE HEHEHE HEHEHE HEHEHE RHEE ERE EEE ) 
SUPPORT. FAS 
Thie is the unit that contains typed constants for use 
by the main program Distrio to display window menus. 
In addition to general purpose routines, the unit also 
contains the initialization procedure for the program. 


(KEEF 
(KKK 
(KEES 
(KEEK 
(HEEF 
(HEEE 
(KEE 
(HHHKX 
(HHEF 
(KEE 
(HKEF 
(EXE 
(HEE 
(KEE 
(HEHE 
(XEPS 
(HEKF 
(HEHEHE 
(KEE 


References: Edwards, C. 
eaceal . fit. 


ese ee eae cage 


Sybex, 


iG es 


C., Advanced Techniques in Turbo 


“ ATO 
241 - 275 


1987 


"When Turbo Isn't Enough,” in 


Shammas, N.C., The Turbo Fascal Toolbook., 


ane 
oe te wel 


on” 


certo Net 


Pp. 


fee eo Sle. 


Ppligiers 


1986. 


Converted to a unit from program Turbocom.com in the 


first reference. 


PAS neGlt 1 GablGn. sen as 


KEE) 
KEKE) 
KEKE) 
KEK) 
KKK) 
HHEK) 
KEE) 
KKEX) 
KEFH) 
FREER) 
KEEH) 
KKH) 
FEF) 
HEHE) 
KHEF) 
FHREX) 
KEK) 
KHKKH) 
KHEF) 


(EHEKEKEE EEE KEEFE KEE KEKE ERE EEE HEE KER KEE EEE KEKE KEE KR EK KE ERE EEE FEFRERESR ) 


UNIT Support; 


cs 
+ 


INTERFACE 


(FEE KEKEKE CRE FREF ERLE 


Uses 


Start Edwards Excerpt 


ug BS - Changed introductory maintenance screen 
Deleted conversion messages from TF 4.0 3 


be | 


KKEKKEKKEKE KKK KKKKEKRES) 


er, 

Dos, 

General, 

Datacom, 

Widow, 

Printer; 
Reprinted with extensive modifications from Advanced Techniques in 
Turbo Fascal by Charles Edwards, by permission of Sybex, Inc. 
Copyriaht 1967 Sybex, Inc. All rights reserved. 

EEEF FEE ERK HES HERE HHHEe = =©60Continue Edwards EX Gerpt FEEFKEF FER HKERK KK HES) 


(¥ 


Me 


(HEHEHE EKEEERERERERE Continue Edwards Excerpt «xX XXEXKHHHHKHKHKKHEEX) 
Consteelt 4 =eaue 
Alt Rk =a. 
Sit 6 e——4ae 
Aiea De eae 
Alt _E ae 
Alef = aos 
Alt_G 
Alt_H 
Atte! 
ie 
Alt_E 
A) tale 
Alt _M 
Ai 
Alt_O 
Alt _F 
alte tb 
Alt F 
Alt_S 
Alt_T oO 
Alt wu oe 
Alt v= 47. 
Alt W = 17; 
ALt_X = 48; 
Alt _Y = tet. 
Ait 7 = 44: 
Home = 7/1; 
Sele =a 
Poi *= cae 


octet 4 
= 

‘, a 
34; 
"w fe » 
wn! tah a 


SPs 


«+! q 
woe 
sii 
me: 
aig) 
49; 
2 
ot 
lee 
eae 


ules 


iN 


Const NUL = #00; 
SGH = #01; 
STX = #02; 
ETX = #03: 
EQ) = £04; 
ENG = £08; 
ACK) = #06; 
hea = 2 
RS = #068; 
nil = soe 
LF = #04; 
VT = £08; 
PP eho 
CR = #£0D; 
SQ = #0E; 
Slow SOR: 

(# Reprinted with extensive modifications from Advanced Techniques in 
Turbo Fascal by Charles Edwards, by permission of Sybex, Inc. 
Capyright 1987 Sycex, Inc. All rights reserved. 

FEREREEELEREFF SEES ESE © Continue Edwards Excerpt eX XKEHRHKEREEEEEEESE ) 
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CER KKE KEKE KKEKKEKRERHEREE 


PLE =s210; 
pei +118 
Pee Fl. 
Desa 4 1s. 
DC4 = #14; 
NAK = #15; 
SYN = #16; 
ETB = #17; 
CAN = #18; 
Eiiee= +19; 
SUR = #14; 
Bote= 218; 
pou +10; 
GS = #1D; 
page Fle: 
ties ti: 
CEEw—— 245: 


Type Fhone_Name = 
Frone Farams 


Fhone Record 


Continue Edwards Excerpt 


Semene LO] 


= Record 


Phone _Number:Stringl20]; 
Fhone_ Baud: AS Baud; 
Figene FParity:noearity: 
Phone Length: Byte; 

Fhone Stop: Byte; 

Fhoane Echo: Boolean; 

Eyer 


= Record 


Name:Fhone Name; 
Fhone_ Data:Fhone_ Farams; 
Enc: 


Fhone Names = Record 


Fhone_D 


eg 
fee en 


Abteay iss 1) oe 


Lencath: Integer; 


HEKKEEKRKKEKKEKKEHHKEEE) 


Names:Array (1..1] of Fhone_Name; 


Ene. 
Fhone Farams; 


Communications Type = Record 


Speed: RS Baud; 
Farertey shou are 
Length: Byte; 
Stegery te: 

EnGe 


Srmings = eeringl sl; 
seocninegt4ds 


Strina4 


‘* Reprinted with extensive modifications from Advanced Techniques in 


Turbo Fascal by Charles Edwards, by permission of Sybex, 
Copyright 1987 Sybex, 
KEFHEKEKEKEKE EERE RERSE 


re 


pial 6) 


Continue Edwerds Excerat 


rufa [ae 


All rights reserved. 


KEERKEKKEKEEREHERKRHEERES ) 


CKHEKREKKEEREKREKEKRERHESE 


TYFE EquipmentListType = RECORD 
NbrOfFrinters, 
NbrOfSerial, 
NbrOfDiskettes, 
InitialVideo, 
RAMOnBoard : 
IsGameFort, 
IsDiskette : 

ENDs 
EquipmentListType: 


word; 


VAR List 


Var Fhone File:File of Phone_Record: 
(Moved from Dialing Directory } 
Frhone Menu, 
Old Fhone_ Menu: “Phone Names; 
Fhone Stuff, 
Did Fhone_Stuff:"“Fhone Data: 
PROGE Fret Pew oer] mopea ae 


Continue Edwards Excerpt 


boolean; 


KEKE K KEKE KKKEKEKRKHHKHEKES) 


Echo,Frint,Ascii Upload,Ascii_Download,End_ Emulator: Hoolean; 


Stekus Line: Stringisol: 
EqULaAtOnrs Stetina hls. 

Aseii File : File of) Civere 
Aecil FileName: Stringl20); 
Current Fath:Long String; 
Dial Delay: Integer: 

last Disl: Integer; 


Record 
Default Name: Stringlio): 
Default Com: Byte; 

Default Modem: Byte; 
Default Phone: Stringl2o]; 
Default Speed:RS_ Baud: 
Derauleebari ty: RS car idtey: 
Default _ Length: Byte; 
Default Stop: Byte; 
Default Echo: Boolean; 
Default Textcolor: Byte; 
Default Menucolor: Byte: 
Default Hackcolor: Byte; 
Default Prefix seitiming@liOd; 
Default Delay: Integer; 
End: 


iefault Type = 


(The defauit parameters for Distrib: 


(* Reprinted with extensive modifications from Advanced Techniques in 


Turbo Pascal by Charles Edwards, by permission of Sybex, 
All rights reserved. 


Inc. 
Pontinue Edwards Excerpt 


Copyright 1987 Sybex, 
FEEFELEKE REF KF EEEEE EF 
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rc. 


KHEEKEKREKREKRKEKEKEHHHKEE) 


(HERE HEE ERERERRERHERE = Continue Edwards Excerpt KE RKKKKKKKKRHEKKRHRKREKER) 
VAR Current : Detault_Type; 


Const Defaults:Default Type = 
(Default Name: ‘DISTRIE.CFG ; 
Default Com:1; 

Default Modem: 25 
Default Phone: Sas-i212°; 
Default Speed: B9600; 

Default Farity: None; 

Default Length:8; 

Default Stop:1; 

Default Echo:False; 

Default Textcolor:LightG&ray; 
Default Menucolor:Green; 
Default Backcoloar: Black; 

lene ee leletesner 12) ORES es ee 
Default Delay: 30) ; 


OF Menu: Integer = i; 
Cea Geseeng ees — UF, § 


Yes Na Menu:lInteger = 2; 
Yes Na Msg:Array ([1..2] of Strinals] 
lo” 


4 
‘Yes '): 


Fa 


Dial Menus Integer = 3; 
Prciepateemoy Ci,.a) Of Strimgloj = ( 
‘Dial (, 
‘Kepeat , 
Git 
‘Delete’, 
“Add oye 


Speed Menu:Integer = 10; 
speed Meg:Array [1..10] of Stringl4) 
Sao 
10" 
ht) 
600° 
“eee 
"2400" 
"4800" 
"9600" 


ll 
~~ 


3 
3 
3 
3 
? 
3 
3 
3 


(* Reprinted with extensive modifications from Advanced Techniques in 
Turbo Pascal by Charles Edwards, by permission of Sybex, Inc. 
Copyright 1967 Sybex, Inc. All rights reserved. 

FESEHAEF SRF SHFEKEK SHEEHY Continue Edwards Excerpt FEHR EERE RERE EERE) 


Pa 


(HEE KHEHEERHEHEEERERE Continue Edwards Excerpt HEHEHE KKHEKHKHKEHEER ) 


“eae 
SEI): 


Farity_Menu:s Integer = 33 

Parity _MsqsArray Ciss2) ot ese ia a! 
‘None’, 
adds % 
‘Even’ ); 


I 


Stop Menu: Integer = 2; 

stop _MsqrArray 11.2.2) Of Stine a= 
‘O Bats”, 
"] Baek 7) 5 


Length _Menu: Integer = 4; 
Length Msg:Arnray fi.24] of Strange, 
‘a Bets. 
“& BRS = 
eh ee 
Cal lait) 


i 


Faram Menu:Integer = 14: 

Param MsosArray Plyyi4 i) et @Sth i polos 
‘Name are 
‘"FRone Number a 
‘Speed 
‘Word Length 
"Parity 
"Stop Bits 
‘Local Echo 
‘Camm Fort 
‘Madem Fort 
‘Dial FRrena: 
‘Redial Delay 
‘Foreqravkd Collen. 
‘Backoround Color’ 
‘Menu Color 


*. . 
Po] re] ae | ae ro] ae ue oe 


al 


~~ 
bal 
*2 @ 


Color_Menu:Integer = 83 
Color _fMsg:Array 11..923 Gi semine ie = 1 


iach 
"Blue : 
‘Green ', 
‘Cyan ; 
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‘Red ; 
‘Magenta’, 
‘Brawn , 
‘White ‘, 
‘Nothing’ ); 
Comm Menu: Integer = 2; 
Conguinsctimmeay eb la..c let Ssthugelol =uf 
pCOhi el 
HO2 ly ey 


Frotocol Menu:Integer = 2; 

ReOeOco! Motywsrismay Clade Ofeotringl6j = 4 
ASE ioe 
‘XMadem'); 


Communications Menu: Integer = 21; 

Communs cations SVEQ.haheyeliews !) of Strimnemid) = { 
LOSS yak 5 

z00-0-7-1" 
SOO-N-B— 
TEORSE=/- 
‘3 2?00-0-7- 
2OO-N-S- 
'S2400-E-7- 
'2400-0-7- 
2400=N=-8— 
‘4300-E-7- 
e200 =O= 7 = 
aA S0U—N BS 
-]- 
Vie 
=e 
p= 
Vis 
= 
= Sa 
ae fie: 


~ 
+f | bed ww Po] ~s ~s ww a] 


‘OSOO-E- 
'O400-Q- 
‘OS600-—N- 
OS) Oe le 
5 AR Oe 
TSR2-N- 


Ss ws SS ws ws MS ol 


ted 
co 
. 
2 
© 
he 


ceeaiaiibiiiie 0.651 Aer ay Cl..2£i1] af Communications Type = ( 
(Speed: B200;Farity:Even;Length: 7:Stop:1), 
Crepced: Beuderarity:Odd:leqgtn:/yStop:1), 
(Speed: B300;Farity:None;Length:8;Stop:1), 
(Speed: Bi20G;Parity:Even:Length:7;Stop: 1), 
Spesgeni 2OU7 rarity Oddeeength: /2oteop: 1.) 


(*# Reprinted with extensive modifications from Advanced Techniques in 
Turbo Fascal by Charlies Edwards, by permission of Sybex, Inc. 
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(Speed: Bi2Z0o; Parity: NonesLength:8:Stop: 1), 
(Speed: B2400;FParity:Even;Length: 7;Stop:1), 
(Speed: B24003Farity:OQdd;Length: 7:Stop:1), 
(Speed: B2400;Farity:None;Length: 8; Stop:1), 
(Speed: B4500; Farity:EvensLength: 7;Stop:1), 
(Speed: B4800;Farity:OddsLength: 7:Stop:1), 
(Speed: B4800;Farity:None;Length: 8; Stop:1), 
(Speed: B9600;Farity:EvenslLength: 7:;Stop:1), 
(Speed: R9600;FParity:Qdd;Length: 7; Stop:1), 
(Speed: B9600;Farity:None;Length:8:; Stop:1), 
(Speed: FiS20G0;Farity:Even;Length: 7;Stop:1), 
(Speed: 819200: Parity: Odd; Length: AgSt cm aes, 
(Speed: BiS200; Parity: None;:Length: 8; Stop: 1), 
(Speed: B28400:Farity:EvensLength: 7;Stop:1), 
(Sneed: BAS400;Farity: Odd;Length: 7;Stop: 1), 
(Speed: BAB400:Farity: NonesLength: 8:Stop:1)); 


Hele Menu:Integer = 17; 
Help _Msq:Amieay Li..17] ef Stringizei = 


Alt-A Change drive & path’, 
"Alt-B Send &@ Break signal’, 
"Alt-C Update Contig Fil eee, 
"ElLt-Gb Dialing Directary ; 
"ALT-E Local echa toqgle : 
“ALLE-F Change DC params : 
“Ait Shor dish aireectary | 
"ALEK Rang up phone : 
Ate 6 Gps Malate | or 
"AlLT-M Activate Master - 
‘Alt—-P teet OUsperatians - 
FgDn , “§ 
‘GlbeR @6MODEM Get a file ; 
‘Alt-S Activate Server 4 
Fup, - 
"Plt-~ MADEN Puc a-file - 
“elt-< SC) Exit emulatear 7: 
Heip Index:Array C1l..17] of Byte =( 

Alt A, 

bas eae 

Atel , 

eye 0M 

Hiwer.. 

Ais FP; 

Alt_&G, 


(* Reorinted with extensive modifications from Advanced Techniques in 
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Alt_H, 
Aylse Ae 
Alt_M, 
Alt_F, 
FgDn, 

Albee oR 
Aires 
PgUp , 

Ait. |, 
ae ae 


Geeeegure Initialize: 


Frocedure Modify_Entry(I: Integer); 


Procedure Save_File(D: Boolean) ; 


peeecaure OF. (S:Strings); 


Function Yes(S:String4):Boaoclean; 


Frocecdure Buiia Status Line; 


Function Chect: Keyboard: Integer; 


Function Check Auxport:Char;: 


Func 


tion Find Environment (What:Long_String):Long_String; 


Frocedure NoFiie(S:Lang_ String); 


Frocedure GetEquis ¢ VAR List : EquipmentListType ); 


PPL 


EMENTAT ION 


Frocedure Initialize; 


{Thi¢e procedure initializes the default values and reads the phone file? 


Var 


Fhone:Fhone Record; 
I: Integer; 

Mem. guration :; File; 
Numread : word; 


Reprinted with extensive modifications from Advanced Techniques in 
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Begin 
Assign( Configuration, Defaults.Default_Name ); 


Reset ( Configuration, Sizeof ( Defaults ) )5 
Tf [OResult = O then Current := Defaults 
ELSE Regin 
BlockRead ( Configuration, Current, Sizeof ( Defaults ),Numread); 
Close ( Configuration ); 
If JOResult = © then Current := Defaults; 
AG: 
CFI+3 
With Current do 
Hegin 
Clases 
If mot Mono then 
Begin 
SetColor (Default_Textcolor?)s 
SetRackground (Default_Backcolor); 
Menugroaund: =Default_Menucolor;: 
Ena 
Fhone Frefix:=Default_Prefix; 
Echo: =Defauit_Echo; 
Dial Delay: =Default_Delay; 
Prints: space: 
Accii Upload: =False; 
Ascii Download: =False; 
GOLGAY i fe 
Textcolor (Det ault_tex tea] Gree) ; 
Writelni’Remote Server Version 1.0°); 
GOECKY (222); 
Write( Maintenance Screen); 
GOTOA Y (oaiepen ss 
Write(’Dr. Eodres’); 
Textcoalor (Default _Textcolor); 
Write Status(’ Initializ lhe 
Default Textcolor shl 4+Default_Backcolor+#8w) ; 
Ena: 
Lastapialw=i 
ASSIGN (Phone rile, DIStRIT ER enh 
es 
Reset (Fhone File); 


(+ Reprinted with extensive modifications from Advanced Techniques in 
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C#I+} 
If T[OResult = © then 
Reoin (Create new files 
GetMem (Fhone Menu,SizeOf (Fhone_Names) ); 
GetMem(Fhone_Stuff ,SizeOf (Fhone_Farams) ); 
Fhone_Menu™.Length:=1; 
Fhone_Menu™.NamesCijli= .-10 be provided.. 
Move (Defaults. Default Renccen Fhone_Stuff*” C1), Svc eXt (Phone _Farams)); 
Phone.Name:= =Phone_Menu* ‘,Names(1]; 
Fhone.Fhone_Data:=Fhone_Stuff "Cid; 
Rewrite (Phone File); 
Write (Fhone File,Fhone) ; 
End 
else 
Begin (Get phone file; 
=FileSize(Fhone File); 
GetMem (Phone Menu, 1*5izeOf (Fhone_ Name) +2); 
GetMem(Phone_Stuff, phere eT ec ams )%5 
Frone_ Menu”. Lenath:=!I: 
sais 
(czas 
While mot Eof {(Fhone_File) da 
Begin 
Read(ehone File,Fhone): 
Fhane Menu”.Nameslli:=FPhone. Name; 
Fhone Stuff°lilj:=FPhone.Fhone Data; 
eee 
nC : 
CER+F 
Ends 


lose(FPhane File); 
Bien Ciumment do 
Regin 


RS Initialize(Default Com,Default Speed,Default_ Farity. 
Defauit Stan,Default_Lenath): 


Eiel s 
Wepeerotatis( ,Cirrent.Defamlt ERackealor shi 4 + 
Current.Default Textcolor)s; 
era (OF Initialize; 


(* Reprinted with extensive modifications from Advanced Techniques in 
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Frocedure Save_File(D: Boolean) ; 


(This procedure asks the user if he wants to save a changed 
configuration 
If so, it writes the appropriate file 


Input D: True if saving default values 
False if saving phone file 
Var Configuration : File; 
Phone:Fhone_Record; 


J: Integer; 


Begin 
if Open _Window(s0,9,67,12,Flag_Borders,’°‘) = 0 then; 
CleSerme 
If D then 
Write( ‘Save defaults?’) 
else 


Write’ ’Save this entry?’); 
If Yes! 'Save’) then 


Reain 
Cr Sete: 
Write( Savile... )¢ 
Tf D then 
Fegin 
Assign( Configuration, Defaults.Default_ Name ); 
ee ol 
Rewrite ( Configuration, Sizeof ( Defaults ) 3; 
If [OResult = G@ then 
NoFile (Defaults. Default _Name) 
else 
BRegl ry 
BlockWeave sGeGent 1a ation, -Currenia wes 
Clase ( Configuration ); 
peas 
End 
Ce Tae 
else 
Begin 
LER-3 


Assign (Fhone_ File, ‘DISTRIB.FHN’):; 
Rewrite (Phane_ File): 


(* Reprinted with extensive modifications from Advanced Techniques in 
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For J:=1 to Fhone Menu™.Length do 
Begin 
Fhone.Name:=Fhone Menu™.Names(lJd; 
Phone.Fhone_Data:=Fhone_Stuff“CJdd; 
Write (Fhone_File,Fhone) ; 
Ener 

Clase(Fhone File); 


Eng: 
Encs 
If Close Window then; 
Scie ~of Save File? 


Frocedure Modify_Entry(1I: Integer); 
(This procedure modifies an entry in the phone list. 
Input: I - if * 6 then the entry in the phone list to be modified 
If = G then the default parameters 
Var J,E: integers 
Status Window,Manu Window: Byte; 
Beeeong Strings 
B: Boolean: 


Froecedure Update Status; 
wear «i: Integer: 
Regi m 


If Get Window(Status Window) then; 
For J:=1 to Faram_Menu do 


Beain 
boeosy (howd): 
Giipeol. 
Case Jd of 
1: If I = © then 
Write (Current.Default Name) 
else 
Write (Fhone Menu”.Names(€I)); 
2: iteeee) chen 


Write (Current. Default Fhoane) 
else 
Write (Phone Stuff*CII.Fhone Number); 


(+ Reprinted with extensive modifications from Advanced Techniques in 
Turbo Faecal by Charles Edwards, by permission of Sybex, Inc. 
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‘oe 8 
AL ee 


14: 


Sq7o a 


Enea 


Tf 1 = 0 then 

Write (Speed MsglOrd (Current. Default _Speed)+1]) 
else 

Write (Speed MsglOrd (Phone Stuff“Cild.Phone_Baud)+1]); 
Tf I = 0 then 

Write (Length_Msg(Current. Default _Length—-4]) 
else 

Write (Length_MsaglFhone_Stuff*Cij].Phone_Length-4)); 
If J = 0 then 


Write (Farity_Msg (Min (Ord (Current.Default_FParity) 
ae, Tea ea) 
else 
Write ( 
Farity_Msq(Min (Ord (Fhone_Stuff“ClI.Fhone_Farity) 
tee eR f 
If I = © then 
Write(Stop Msgl(Current.Default_Stop+1]) 
elses 
Write (Stop MsqlPhone_Stuff“Cid.FPRhane Stoptid); 
If I = 0 then 
Write (Yes No MsglOrd(Current.Default Echo) +1]) 
else 
Write (Yes No MsglOrd(Fhone_Stuff”CI].Fhone Echa)+1]); 
Write (Comm MsglCurrent.Default_Cam]); 
Weite (Comm MeglCurrent.Default Modem )); 
Write (Lurrent.Detad] tipeeti 
Weaite(Current.Default Delay); 


Write (Color MsaqlCurrent. Default _Textcolort+l)); 

Weite (Color _MsglCurrent. Default _Backcolor+1]); 

Write (Color _ Msg (Current. Default_Menucalort+id);: 
(ot Case: 


I¢ Get Wiridow (Menu Window) then; 


Update Status; 


Eide 
Begin 
If J] = 0 then 
If steno then 


Faram Menu:=10 


else 


Param Menu:=13 


(* Reprinted with extensive madifications from Advanced Techniques in 
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else 
Faram Menu:=7; 
If Open Window(1,2,99,2+Faram_Menu,Flag_Borders, 
‘Parameters )} = © then; 
Status Window: =Active_Window™. ID; 
GirScr; 
For J:=1 to Faram_Menu do 
Regin 
GataxY(1,d); 
Write(Param_MsoglJ1],°:'); 
End : 
If Open Window(S2,2,70,2+Faram_Menu,Flag_Borders, 
‘Options’) = 0 then; 
Menu Window: =Active_Window™. ID; 
merrocr ; 
Repeat Begin 
Update Status: 
J:=Frocess Window Menu (Faram_ Menu) ; 
Case J of 
De GS SSG selene (gland gp Ul gia ny 
i: Begin ‘Change Name: 
If Open Window(a,21,75,24,Flag_ Borders, 
‘Name’) = © then; 
ola s - 
Write(’Name: °); 
Reacin(S)s; 
Tf Length(S) = Oo then 
If I = 6 then 
Current. Default Name: 
else 
Fhone_Menu™.NamesCild:= 
If Close Window then; 
Ena. 
Hegin <Fhone numbers 
If Open _Window(S,21,75,24,Flag_Borders, 
‘"Fhane Number’) = © then; 
Cima: 
Write(‘Fhone Number: ‘); 
Readin(S); 
If Length (S) = O then 
if IT = 0 then 
Current. Default Fhone:=5 


II 
ae 


mn 


fr.) 


(+ Reprinted with extensive modifications from Advanced Techniques in 
Turbo Fascal by Charles Edwards, by permission of Sybex, Inc. 
Copyright 1987 Sybex, Inc. All rights reserved. 

EFEEKEEEKEHHKEEKERH EHR Continue Edwards Excerpt 4K HK RX HHKEHE EF EES) 


(HE REKEEEEREEEEEEEEEE Continue Edwards Excerpt «ke KK HHHHHHEKHHHHEE) 


ci 


else 
Fhone_Stuff°CIlI.FPhone Number: =S; 
If Close Window then; 
Eid 
Begin <Speed} 
If Open_Window(69,9,72,14,Flaq Borders, Baud’) = © 
then; 
tie Seta. 
E:=Process Window_Menu(Speed Menu); 
If koe O then 
If I = 0 then 
Current.Default Speed: =RhS Baud (kK-1) 
else 
Fhone_Stuff“CIi].Fhone Baud:=RS_ Baud(E-1); 
If Close Window then; 
End; 
Begin ‘Word Length} 
If Open Window(69,6,77,11,Flaq Borders, Bits’) = © 
thens 
CligoGia, 
Es=Frocess Window _Menu(Length Menu) ; 


lt © + Other 
If I = 0 then 

Current. Default Length: =K+4 
else 


Fhone Stuff°C1l].Phone Length: =K+4; 

If CLose Window then; 

EMG 

Hegin <Farity3 

If Open _Window(69,7,75,11,Flag Borders, 
‘Type’) = © then; 

ClmSen- 

E2=Frocess Window Menu(Farity Menu) ; 

lt ie eae to 


If KE = 0 then 
If [— = 0 then 
Current.Default FParity:=RS_ Parity (k) 
else 


Phone_Stuff“C Li, Phone Parity#=Ks Parity as 
If Close Window then; 
Biel: 
Begin  <‘Stop@bives: 
If Open Window(69,8,77,11,Flaq_Borders, 
‘Bits’) = 0 then; 


(*¥ Reprinted with extensive modifications from Advanced Techniques in 
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CU eeiange: 
E:=Frocess Window Menu(Stop_Menu) ; 
oe nom 
If I = 0 then 
Current.Default_Stop: =k-1 
else 
Fiome otutrt Li Phene Stops=K—1; 
I¢ Close Window then; 
Brads 
Te Regin <t«Local echo: 
R:=Yes('Echo'); 
If I = © then 
Current.Default Echo: =B 


else 
Bhomne otutt fid.fhone Eco: =H, 
Enc; 
Ss! Regin <iComm ports 
If Open _Window(69,10,76,12,Flag_Borders, 
“ele. ae e)e felay= lai 
ie Scr: 


Es=Frocess Window _Menui(Comm_Menu) : 
Tf Eo» ©O then 
Current. Default Com: =k; 
If Close Window then; 
End; 
ae Begin <wlomm ports 
If Open Window(69,10,76,12,Flaqg Horders, 
‘Fart’) = © then; 
Hc oie 
Es=Frocess Window Menu (Comm Menu) ; 
If & = O then 
Current.Default Com:=E; 
If Close Window then; 
Sigal 
10: Begin tDial Prefix: 
If Open_Window(s,21,75,24,Flaq Borders, 
‘Prefix’) = 0 then; 
Piteoeter 
Wrgeee*. Frefigs: §)} 
Readin(S); 
If Length(S) = O then 
Current.Default Frefix:=S3 
If Ciose Window then; 
Ends 


(* Reprinted with extensive modifications from Advanced Techniques in 
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11: Begin «Default redial delay} 
If Open_Window(S,21,75,24,Flagq Borders, 
‘Redial delay’) = 0 then; 
ie ociss 
Write(’Redial delay (in seconds): ‘); 
Readin(Current.Default_ Delay) ; 
If Close Window then; 
nia. 
er {Foreground color? 
REE {Background color? 
14; Begin tMenu color: 
If Open_Window(69,2+J,78,11+J3,Flagq Borders, 
‘Colors’) = 0 then; 
Cligser. 
E:=FProcess Window Menu(Color_Menu); 
If EF = G then 
Case J of 
12: Current.Deftault_lextentar:—1—1; 
13: Current.Default_Backcolor:=K-1; 
14: Current.Default_Menucolcr:=K-1; 
End; tof Case? 
If Close Window then; 
eniae 
Fries ‘of Case; 
d= 
se Window then; 
File(I = 0); 
se Window then: 
tER+ > 
End; tof Modity Jem, = 


Frocedure OK(S:String3); 
Thais procedure displays a window on the screen and waits for an 
acknoledaement from the user 


Input: S - The title to use for the window 
Reqin 
If Open_Window(60,2,64,7,Flag_Horders.S: = 0 then; 
If Frocess Window Menu (OE_Menu) = © then: 
I¢ Clase Window then; | 
Ends tof OK? 


(* Reprinted with extensive modifications from Advanced Techniques in 
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Function Yes($:$tring4): Booleans; 
(This procedure prompts the user for a yes or no response 


Input: S - The title to use for the window 


Output: True if YES was selected 


: 


Hegin 
If Open Window(69,9,74,12,Flag_Borders,S) = 0 then; 
Yes:=FProcess Window Menu(Yes_No_Menu) = 2; 


If Clase _Window then; 
End; tof Yes} 


Frocedure Build Status Line; 
This procedure updates and displays the status line: 


Poapeeamport =: stringlid; 


BRecin 

pee Current COM, Comport ); 

Status Line:=' ‘+ (40 Spaces) 
‘; (40 spaces; 


Meese. Com Fort: i,Status Line,1); 
Insert (Comport,Status Line,1il)s 
Meacwacacom._ompart € Current_COrM J DO 
KEGIN 
Insert ( Speed MsglORDi Speed ) + 1 1, Status Line, 13); 
Insert ( ‘Baud ‘, Status Line, 18 ): 
Insert ( Length_Msagf Length-41], Status Line, 23 ); 
ieceeroerrs1 ty Msomainin(ORD Farity +1, 2)1], Statue _Line, 30): 
fjasem@e. stop Msql Stop + ij], Status Line, i5 ): 
END: 
ieeEcho then 
accrue Eeno , Stevwemiane, 49): 
i faint then 
isem@eeerr int ,status Line,os2); 
mceer!( meme for Help ,Status Line,6&); 
Write Status (Status Line.Foreground shl 4 + Background): 
Pace oT err rd ota cus Lines 


Function Check Keyboard: Integer; 

(This function checks for keyboard input 

(* Reprinted with extensive modifications from Advanced Techniques in 
Turbo Fascal by Charles Edwards, by permission of Sybex, Inc. 
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Output: O 1f no key pressed 
If normal key then high byte is © and low byte is value of key 
If special key then low byte 15 © and high byte is value of key 


} 


Valen @ilacoinc tas 
Begin 
If Ascii_Upload then 
Begin 
If Eof (Ascii File) then 
Begin 
Close(Ascii_ File); 
Ascil Upload: =False; 
Build Status_Line; 
End 
else 
Begin 
Read (Ascii File,Ch); 
If Ch = Char(LF) then 
Ch: =Char (NUL); 
Check Feyboard:=Byte(Ch); 
End 
ENC 
else 1f heypressed then 
Begin 
Ch := Readkey;: 
If (Ch = #0) then 
Beain 
Ch := Readkey: 
Check Keyboard: =Byte(Ch) shl 8; 
End 
else 
Check Keyboard:=Byte(Ch)s; 
End 
else 
Check Keyboard: =0; 
End; tot Cheek hevyseqmcds 


Function Check Auxcort:Char; 

{This function checks for input from the data communications port 
If the appropriate @global booleans are set, 1t will send the output 
to the printer or to a disk file 


Output: NUL if mo character otherwise character received 
v: 


(* Reprinted with extensive modifications from Advanced Techniques in 
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mar Cis Char § 
Begin 
Ppenecae Avail then 
HRegin 
Gigieemoece Ins 
If Ch <3 Char (NUL) then 
Begin 
hier i acechen 
eae eCee i, Chia 
If Ascii_Download then 
Write (Ascii_File,Ch); 
End; 
Check _Auxport:=Ch; 
End 
else 
Check Auxport:=Char (NUL) ; 
endee, .or Check Auxports 


migeeron Fine Environment (What:Long_Strina):Long_String; 


{This function searches the environment for a particular specifier af 
the form: ID=Text 


Pee: What — the ID to look for 


Output: The Text of the environment string or empty if nat found 
Type Environment = Array (1..3276/7] of Char; 
Mam@meeEAVIron: ERViI ronments 

Environ _Seoment : word; 
Soeeme string: 
I: Integer; 


Begin 
Environ Segment := MemWlPrefixSeg: $0020]; 
Find Environment:='°; (Assume not found? 


What: =What+ “= 
Environ: =FTR(Enviran_Ssegment ,®) § 


Pls 

While Environ“[I] <> “@ Do 
Hegin 
S:=' "3 


(* Reprinted with extensive modifications from Advanced Techniques in 
Turbo Fascal by Charles Edwards, by permission of Sybex, Inc. 
Copyright 1987 Sybex, Inc. All rights reserved. 
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Repeat Hegin 
Se =StEnvirmen [1 )s 
Ne ae: EH 
End 

Until Environ*“CI] = “@: 

If (Length(S) += Length(What)) and 
(Copy (S,1,Length (What)) = What) Then 
Find_Environment: =Copy (S,Length (What) +1,Length(S)-Length (What) ) 

else 
T:=I4+1,; 

End; 

End; tof Find Environment; 


Frocedure NoFile(S:Long_String); 


{This procedure apens a window and notifies the user that a file was 
not founds 
Regin 
If Open_Window(42,2,80,35,Flagqg Rorders, No frlem) — © theme 
Clr Sere 
Write( ‘Cannot find file °,9S); 
ee ee : 
If Clase Window then; 
End: ‘faf NoFile;s 


(# Rerrinted with extensive madifications from Advanced Techniques in 
Turbo Fascal by Charles Edwards, by permission af Sybex, Inc. 
Capyriaght 1987 Sybex, Inc. All rights reserved. 
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Fracedure GetEauip (¢ VAR List : EquipmentListType 3; 

CONS? SYS INT + byte = 2m 

VAR Regs : Das.Registers;: 

REGIN 


With List DO BEGIN 
With Regs DO BEGIN 


(* The iibrary GetEquip appears in The Turbo Fascal Toolbook by Namir 
C. Shammas (ed.) and has been reprinted with the permission of the 
publisher M & T Books 1-800-525-4272. Minor modifications By Nelson 
Ard, 
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INTR (¢ SYS_INT, Regs); 
NbrOfFrinters := AH SHR 6; 
IsGamePort := (AH AND #10) = 13 
NbrOfSerial := (AH AND #08) SHR 1; 
IsDiskette := (AL AND #01) = 1; 
IF IsDiskette THEN 
NbrOfDiskettes := (AL SHR 6) + 1 
SSE 
NbrOfDiskettes := (AL SHR 46) + O; 


InitialVideo := (AL AND ¥20)SHR 4; 
CASE InitialVideo OF 

for hil al ViGeD 3 0: 

2 : InitialVideo := 2; 
= : InitialVideo := 7; 

END; 

RAMOnBoard := ((AL AND #0C) + 1) * 16; 
END; i Regs } 


Writeln; 

Writeln ('No. of Frinters = °, NbrOfFrinters ); 
Writeln (’No. of Serial —) 2 Were Sserial ); 
Writeln (’No. of Diskettes = °, NbrOfDiskettes ); 
Writein (’InitialVideo = ‘, InitialVideo ); 


Writeln (°RAMOnBoard ‘, FAMOnBoard ); 
Weriteln ('’IsGameFort ", IsGameFort 3; 
END: 


END: 


i 


Hl 


(* The library GetEquip appears in The Turbo Fascal Toolbook by Namir 
C. Shammas (ed.) and has been reprinted with the permission of the 
publisher M & T Books 1-800-322-4372. Minor modifications by Nelson 
Ard. 
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SOURCE LISTING FOR UNIT WNDOW 
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(KHH* 
(HEE 
(HHH 
(HHH 
(HEHE 
(HEHE 
(HEE 
(HEE 
(FHEX 
(HES 


WNDOW. FAS 
This is a library of general purpose routines to 
Gisplay windows and control menu bars for selectors on 
the IBM FC screen. 


Edwards, C. C., Advanced Techniques in Turbo 
Pascal, pp. 73-97, Syoex > ine toe 


Reference: 


Modified slightly to make a Turbo Fascal 4.0 Unit 


Last Modification: Sep 89 


KHHEEK) 
KKH) 
KKK) 
KEE) 
KHEH) 
KHEH) 
HEE) 
KKEEE) 
KEKE) 
KEKE) 
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UNIT 
INTER 
(HHH 


ie == 
Boe 


Type 


(% 


G 


CEKEKEKRERKERFEKREEKEHE 


Windows 
FACE 
KE KEKKKEKKKKKEES 


Start Edwards Excerpt 


General, Crt, Das; 


“Window Control _ Block; 
Array Ci..80) of WORD; 


Window Link 
screen_Ling = 

upgrade 
Arrayll..25] af Screen_Line;: 
frrayli..2000) of Integer; 


Re eave Lala.) 


Sscreen_fArray = 
Screen Black 
Window Title 


a 


KKEKKKKKKKKKEKKEHKRKKEKSE | 


£: chanaec per 


Window Contre] Elock = Record 
X1,Y1,X2,Y2: Byte; tWindow boundaries; 
Kaye Byuer {Cursor location?) 
ID: Byte; 


Menu_Index: Integer; 
Menu _TapY: Integer; 
Flag: Byte; 
Foreground ,Menuground: Byte; 


opyright i987 Sybex, Inc. All rights reserved. 
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{The top item 1n a menus 


Reprinted with extensive modifications from Advanced Techniques in 


Turso Fascal by Charles Edwards, by permission of Sybex, Inc. 
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Title: Window_Title; 

Back Link: Window _Link; 
screen_Contents:Screen_Block; 

Ends; tof Record Window_Control_ Blocks 


Border Type = (Single,Dauble) ; 
boapg String See NE Scrat de 


Const Foreground: Byte LightGray:; ‘Color within the windows; 


Menuground:Byte = LightGray; ‘Color of the menu borders: 
Background: Byte = Black; (Background color; 
(These are the bit values of the field "Flag" in Window_Control_ Block: 
Const Flag_Borders = FOL; {Borders on the window} 
Fiag Goto = ie «Goto to this window is allowed: 
Flag Relocate= $04: tWindow may be relocated: 
Flag Close = #08; {Window may be closed from main 
menu? 
Var W, 


Active_Window:Window_Link; 
Window Count: Integer: 
Window Fixec Fart: Integer; 
Mona: Boclean;: 
{Forced ta assign these variables on the same line - type mismatch 3} 
Screen, 
Screen_New,Screen_Temp: “Screen_Array; 


Frocedure SetColor (Color: Byte) ; 
(this procedure sets the forground colors 


Frocedure SetRackaround(Colar: Byte): 
tThis procedure sets the background colors 


Procedure Get _Dummy_Screen; 
= Ve 
{This procedure changes Screen ta point to a dummy screen area on 
the heaps 


Frocedure Get Real Screen: 
«This procedure undoes the work of Get_Dummy_Screen; 


(* Reprinted with extensive modifications from Advanced Techniques in 
Turbo Fascal by Charles Edwards, by permission of Sybex, Inc. 
Copyright 1987 Sybex, Inc. All rights reserved. 
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(HEKEHEKERKERKERREEEER Continue Edwards Excerpt Xxx KHHHHHHKHHHHEHES) 
Frocedure Build RBorders(Lines: Border Type); 


cPurpose: 
This procedure builds a border around a window. 


ayant 
Lines:Single = Single line border 
Double = Double line border 


| 


Output: 
None + 


Function Open _Window(X1,Y1,X2,Y2:Byte;Flag: Byte: 
Name: Window _Title):Byte; 
cFurpose: 
This function opens a window on the screen and places a border 
around it. 


Papi: 
X1,XZ,Y1,Y2 are the coordinates of the window to be opened. 
Flag is a Bit mask of functions allowed in this window 
Name is the title of the window 


BE eal ae 
Qpen_ Window returns a byte as follows: 
O = Window opened QE 
Invallc window coordinates 
= = Not enough memary 


ps 
' 


nd 


Functican Clase Window: Boclean: 
cThis function closes the currently active window. 


Greate s 
Returns a True if there is no currently active window. 
Function Save_Window: Window_Links 


(This procedure saves off the current window & closes it 


Buea ach 
Fointer to the saved window 


Ws 


(* Reprinted with extensive modifications from Advanced Techniques in 
Turbo Fascal by Charies Edwards, by permission of Sybex, Inc. 
Lopyriagnt 1987 Sybex, Inc. All rights reserved. 
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Function Restore _Window(W: Window_Link): Roolean; 
{This procedure re-creates a saved window on the screen; 


Function Get_Window(Which: Integer): Boolean; 
{This procedure brings window "Which" to the top of the screens; 


Function Move_Window(X,Y: Integer): Boolean; 
{This procedure moves the current window by "X,Y" locations: 


Frocedure Write Status(S:Long_String;Attrib: Integer) ; 
{This procedure writes to line 25 of the display 


Input: 5S = String to be written 
Attrib = Video attribute byte to use 


ah 
J 


Function Frocess Window _MenutVar Menu): Byte; 

«This procedure will display and process a menu in the currently 
active window. 

The menu may be longer or shorter than the actual window. 


Input: Menu - A pointer to a record with the following format: 
Bytes 9-1: An integer giving the mumber of string 
Variables 
ytes £-n: A series of String variables. 


rm 


Outout: The function returns the index (i relative: of the item 
selected. A zero 15 returned if the ESC key is pressed 


Frocedure Init_Window_Info; 
«This procedure initializes all the of data used by the 
windowing routiness 


IMPLEMENTATION 


Frocedure SetColor (Color: Byte); 
‘This procedure sets the forground color 


Input: Color = Color to set forground to 3 
Regin 
Foreground: =Color: 
Textcolor (Color): 
fie: wer Settol or} 


(* Reprinted with extensive modifications from Advanced Techniques in 
Turbo Fascal by Charles Edwards, by permission of Sybex, Inc. 
Copyright 1987 Sybex, Inc. All rights reserved. 
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Frocedure SetHackground (Color: Byte); 
(This procedure sets the background color 


Input: Color = Coior to set background to 
Begin 
Background: =Color; 
Textbackground (Color); 
End; tof SetBackground: 


Frocedure Get _Dummy_Screen; 
<This procedure changes Screen to point to a dummy screen area on 
the heap; 
Begin 
If Screen_New «> Nil then 
Begin 
Screen_New™:=Screen’; 
screen: =screen_New; 
End; 
End; tof Get_Dummy_Screen: 


Frocedure Get Real Screen; 
(Thiec procedure undoes the work of Get _Dummy_Screen3} 


# Screen_New «> Nil then 
Begin 
Screen_Temp~:=Screen_New™; 
screen: =Screen_Temp;: 
ree: 

Fnd; tof Get _Real Screen; 


Frocedure Builo Borders (Lines: Horder_Type): 


“Purpose: 
THis procedure builds 2a border around a window. 


ipietine 3 
Lines:Single = Single line border 
Double = Double line border 


B) Tester nae 
None > 


(* Reprinted with extensive modifications from Advanced Techniques in 
Turbo Fascal by Charies Edwards, by permission of Sybex, Inc. 
Copyright 1987 Sybex, Inc. All rights reserved. 
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Const Upper_Left:Array (0..1] of Char = (#218,°J); 
Upper _Right:Array (0..1] of Char = (#191,#187); 
Lower _Left:Array [0..1] of Char = (#192,#200) ; 
Lower Right:Array (0..1] of Char = (#217,#188) ; 
Vertical:Array (6..1] of Char = (#179,#186); 
Horizontai:Array (0..1] of Char = (#196,#205) ; 


Var Index: Byte Absolute Lines; 
XX,YY,1: Byte; 
MS6,H,V: Integer; 
Begin 
l:=1; 
With Active _Window™ da 
Begin 
If (Flag and Filag_Relocate) = Flag Kelocate then 
Upper _Leftlij:="J 
else 
Upper Leftlij:=#201; 
MG:=Menuground shi 8; 
H:=MG+Byte (Horizontal lIindex )) ; 
Vi=MGt+Byte (Verticallindex]); 
Screen“CY1,X1}]:=(MG)+Byte (Upper _LeftlIndex]); 
Screen“CY1,xX23:=(MG)+Byte(Upper RightC Index J); 
Screen CY2,X1)J:=(MG)+Byte (Lower_LeftlCindex]); 
ecreen CYS, X21]:= (Moi +BRyte (Lower RightlIndex]); 
KAt eet 1: 
While XxX = X2 do 
Beoin 
If [ <= Length (Title) then 
Screen“CY1,xAXJs=(Foreground shi 8)+Byte(Titlelld) 
+ Index shi il 
else 
Begin 
mite Wena screen; [Yi AKdsA2 sks ee 
Ke aes 
Emete 
KALT=KAt+1: 
J es ee 
Ends 
BeeWwometscreen Py¥e,X%1+13,X%2-41-1,H); 


(* Reprinted with extensive modifications from Advanced Techniques in 
Turbo Fascal by Charies Edwards, by permission of Sybex, Inc. 
Copyright 1987 Sybex, Inc. All rights reserved. 
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For Y¥s=V¥i+) vere 
Begin 
Screen“CyYY,XiI:=V; 
Screen’. Y¥ apie: 
Ends 

Ends tof With> 

End; ‘fof Build Borders: 


Function Open _Window(X1,Y1,X2,Y2:Byte;Flag: Byte; 
Name: Window _Title):Byte; 
‘Furpose: 
This function opens a window on the screen and places a border 
around it. 


zat boce 
X1,X2,Y1,Y2 are the coordinates of the window to be opened. 
Flag is a bit mask af functions allowed in this window 
Name 1s the title of the window 


SUt Ria: 
Open Window returns a Byte as follows: 
© = Window opened OF 4 
i Invalid window coordinates 
Not enough memory 


it 


i 
a 


lf 


Var Block:Window Link; 
Line Lenath, Window _Size,I[: Integer; 
¥,Borders: Byte; 


Begin 
if Active Window «<> Nil then 

If Active Window™.Flag and Flag_Borders = Flag Borders then 
Ruild Borders (Single); 

line Length:=(xX2-xXiti); 

Rorders:=Byte{Flagq and Flag_Borders = Flag Borders); 

Window Size:=Line Length*® (Y2-Yiti) #2+Windaow_Fixed_Fart; 


If (Xi < 1) or (XS 2 80) oF 4Y¥1 = 1) ones = eee 
(XS eC ea ee 
Open Windaw:=1 
else if (MemAvail < Window_Sizeti) and (MemAvail *= G) then 


o“ 
mw“ 


Qpen_ Window:=<2 
else Begin 
GetMem(Block.,Window Size); 
Block”. %1:=X1: 


(* Reprinted with extensive modifications from Advanced Techniques in 
Turbo Fascal by Charles Edwards, by permission of Sybex, Inc. 
Copyright 1998/7 Sybex, Inc. Ail rights reserved. 
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BUGGE se Net HK: 
Oe leva 
EGG. Vesey 2s 
Black”. X:=Wherex; 
Block”. Y:=Wherey; 
Block”. Title:=Name; 
Bideha «lag: =Flag; 
Block*.Menu_Index:=0; 
Block™.Menu_TopyY: =0; 
Block*. Foreground: =Foreground+ (Background shi 4); 
Block™.Menuground: =Menuground+ (Background shl 4); 
Block”. Back Link: =Active_Window; 
Active Window: =Block; 
Tr=l1; 
Boers —y i co yo DO 
Begin 
Move (Screen*CY,X1iJ],Block™.Screen_Contentsl1], 
Line Length*#2) ; 
Tr=I+Line Lengths 
End: 
Window 
Peeeeerders,YitBorders,xX/—-Borders,Max ((Y2-Borders) , (YitHordersti))}; 
If Borders = 1 then 
Build Forders(Double);: 
GeecN 1 (i, 1.) s 
Window Count: =Window Countt1; 
hack”. IDs=Window_LCounts; 
Orpen Window: =0; 
irae 
End: tof Qpen Windows 


Funczien Close Window: Hoolean; 
fThis function clases the currently active window. 
Output 


Returns a True if there i¢ no currently active window. 


Pat BLock!s Wimdow Links 
Line Length,Window Size,l: Integer; 
Y,Borders: Byte; 
Begin 
If Active Window = Nil then 
Close_Window:=True 


(* Reprinted with extensive modifications from Advanced Techniques in 
Turbo Fascal by Charles Edwards, by permission of Sybex, Inc. 
Copyright 1987 Sybex, Inc. All rights reserved. 

KE KERERREREF EER EREESEe = «6 Continoue Edwardes EXCEr Pt EEKEHHESHHKERHEE EERE) 


fan fer iicr-A 
sha Nes an? 


(KHEEKKERKKKEHEEKEKEEEEH Continue Edwards EXCOP Pt KEKE KKHEHHHHHKHHHES) 


else 
Heqgin 
Block:=Active Window; 
Line Length: =(Block”™. X2-Block™.Xit+i); 
Window _Size:=Line_Length* (Block™. Y2-Block”.Yi+1i)#2 
+ Window Fixed Part; 
ae 
For Y:=Block®.Y1 to Block*.Y2 Do 
Begin 
Move (Block. Screen_Contents{I1]},Screen*lY,Block*.XiJ, 
Line Length*2) ; 
IT:=I+Line_ Length; 
End: 
Active Window: =Block”™. Back Links 
If Active Window = Nil then 
Window(1,1,80,25) 
else with Active _ Window” do 
Begin 
Boarders:=Byte (Flag and Flag Borders = Flag Borders); 


Window(xi+Borders,Yit+Borders,X2-Horders,Max ((Y2-Borders) , 
(Yil+Borders+1))); 
If Borcers = 1 then 
Build Borders (Double) ; 
SetColor (Foreaqraund and 7); 
SetRackground (Foreground shr 4); 
End: 
GOLOA (NE. Oe. wage eOehacn ion, 
FreemMem(Block,Windaow_Siz®2); 
Window Count: =Window Count—-1; 
Close Window: False: 
End; 
End; tof Close Window: 


Function Save Window: Window Link; 
This procedure saves off the current window & closes it 


PUL pue. 

Fointer to the saved window 
Yar W:Window_Link; 

Regin 

We=Active Window; 


(* Keprinted with extensive modifications from Advanced Techniques in 
Turbo Fascal by Charles Edwards, by permission of Sybex, Inc. 
Copyright 2987 SybexselnevesAil rights pesem eq. 
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If Open_Window(W*.X1,W".Y1,W".X2,W".Y2,W". Flag, ,W*. Title) = 0 then 

Save Window: =Nil 

else 
Begin 
Active Window™. IDs=W". ID; 
Active Window™.Menu_Index:=W".Menu_Index; 
Active_Window™.Menu_TopY:=W*.Menu_TopyY; 
W:=Active Window; 
Active _Window:=W". Back Link; 
If Close Window then; 
Save Window: =W; 
ets helpe 

End: tof Save _ Window; 


Function Restore Window (WsWindow_Link):Hoalean; 
<This procedure re-creates a saved window on the screen; 
Begin 
SetColar(W".Foreground and 7); 
SetHackground(W".Foreground shr 4); 
If Open_Windowl(W. XL Wo. YT WO. XSW". YS,W".Flag,W*. Title) 2 O then 
Restore Window: =True 


else 
Begin 
Active Window”. ID:=W". ID; 
Active Window™.Menu_Index:=W".Menu_Index; 


Active Window™.Menu TorY:=W".Menu_Topy: 
W",. Back Link: =Active_ Window; 
Active Window: =W: 
Restore Window:=Ciose Window: 
=igielr 
End: fof Restore Window: 


Function Get Window (Which: Integer) : Boolean; 
fThis procedure brings window "Which" to the top of the screen? 
Yar WindowF: Window Link; 
Function Move Windows: Boolean: 
Var WiWindow_ Link; 
Begin 
W:=Save Window; 
If W = Nil then 
Move_Windows: =True 
Else 
If We.ID <3 Which then 


(* Reprinted with extensive modifications from Advanced Techniques in 
Turbo Fascal by Charles Edwards, by permission of Sybex, Inc. 
Copyright 1987 Sybex, Inc. All rights reserved. 
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Begin 
If Move_Windows then 
Move_Windows: =True 
else 
Move_Windows: =Restore_ Window (W) ; 
End 
else 
Begin 
WindowF': =W; 
Move Windows: =False;: 
End; 
End; <«of Move Windows: 
Regin ‘Outer block of Get _Window; 
Get Window: =False; 
WindowF: =Active_ Window; 
While (WindowF <3 Nil) and (WindowF”.ID «+ Which) do 
WindowF: =WindowF™. Back Link; 
If WindowF = Nil then 
Get Window: =True 
elise if Active Window™.ID «+ Which then 
BeGifi 
Get Dummy Screens 
If Move Windows then 
Get Window: =True 
else 
Get Window: =Restore Window (WindowF’ ; 
Get Real Screen; 
End: 
End: tof Get Window: 


Function Move Window (X,Y: Integer): Booleans; 
(This procedure moves the current window by "X,Y" locations: 
Var WiWindaw Links 
XC ,YC, Lame Length. Y lakbordesesky ue: 
it Integer: 
Begin 
We=Active Window; 
If W= Hil then 
Fove Window:=True 
else if (W'.X1+X < 1) or (NO. YI+Y < 1) Gr (Wee ee 
or (Wo .Y2+Y 3 24) 
then Move_Window:=True 
else Begin 
X¥C:=WhereX: 


(* Reprinted with extensive modifications from Advanced Techniques in 
Turbo Fascai by Charles Edwards, by permission of Sybex, Inc. 
Copyright 1987 Sybex, Inc. All rights reserved. 
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YC:=Wherey; 
Di neskenogth:=Waake—W aX iets 
I:=1; 
oie Want tow .¥2 do 
Begin 
Exchange (W*.Screen_Contents(1],Screen“CYI,W".X1], 
Line_Length*2) ; 
T:=I+Line_Length; 
End; 
Wo. XLS HW. X14+X3 
Weemy it —Wo GY ItYs 
Wo XS2=W".XL+KXs 
W.Y¥2:=W". Y2+Ys 


Pomel =W yy ieko Wo Y2 do 
Begin 
Exchange (W™. Screen _Contents(I),Screen“CYI WwW. Xil, 
Line _Length#2); 
T:=I+Line Lengths 
mac ¢ 
Borders:=Byte(W>.Flag and Flag Borders = Flaq Borders); 
Window (W. X1+Borders,W”. Yi+Borders,W*.X2-Borders, 
MenwowW “a reoheraere?, (We yithordersti}y) >: 
owe (AC, YC) s 
Ends: 
Enc: ‘fof Move Window} 


Procedure Write Status(S:Long String;Attrib: Integer) ; 
tThis procedure writes to line 25 of the display 


itten 
bute byte to use 


Var A:Byte: 
Begin 
Attrib:=Attrib shl 2; 
For X:=1 temGiueado 
If X = Length(S) then 
Screen “Ceo, XIJs=Attribt+#20 
else 
Screen (25,X)J:=AttribtByte (Sfx); 
Ends tof Write Status: 


(* Reprinted with extensive modifications from Advanced Techniques in 


TurGbo Fascai by Charles Edwards, by permission of Sybex, Inc. 
Cosyvright 1987 Sybex, Inc. All rights reserved. 
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Function keyin (Checkit: Boolean): Integer; 
tThis procedure reads ina key from the keyboard. 


Input: Checkit True if we should call Special Frocessing to check it 


False if we should not call Special Processing 


Output: The value of the key read 
Function keys are returned with a 9 in the low byte and the 
extended scan cade in the high byte 
Var Ci ther: 
Key: Integer; 
Done: Boolean; 
Reain 
Dones=Trues 
Rennes 
Regi rt 
Repeat until KeyFressecd; 
C := Reackey; 
Tf (C = #0) then 
Hegin 
C 3:= Readkey;: 


Reyr=Byte(C) shl &; 
Ere 

elce 
Rey:=Byte (Cl): 

If Checkit then 


Function Frocess Window Menu(Var Menu): Byte; 
{This procedure will display and process a menu in the currently 
active window. 


The menu may be longer or shorter than the actual window. 


Input: Menu - A pointer to a record with the following format: 
Rytes O-1: An integer giving the number of string 
variables 
Bytes 2-n: & series of String variables. 


(* Reprinted with extensive modifications from Advanced Techniques in 
Turoo Fascal by Charles Edwards, by permission of Sybex, Inc. 
Copyright 1987 Sybex, Inc. Ail rights reserved. 
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Output: The function returns the index (1 relative) of the item 
selected. A zero 1s returned if the ESC key is pressed 
Var Menu_Count: “Integer; 
Menu_Item: “Long String; 
Menu_Offset: Integer Absolute Menu_Item; 
Window _Size,I,J,Kkey: Integer; 
Done: Boolean; 
Procedure Gol/p; 
{This procedure moves up to the prior item in the menus 
Begin 
Menu Offset: =Menu_Offset-Length (Menu_Item™)-1; 
ea awe 
If I « Active _Window™.Menu_TopY then 
Hegin 
Baewary (1.1): 
INSLing: 
Write (Menu Item”): 
Active_Window™.Menu_TopY:=I; 
ety 
Sc cat Golan 
Frocedure GoDown; 
tThis procedure moves down to the next item in the menu: 
Hegin 
Menu Offset: =Menu_Offset+Length (Menu_Item”)+1; 
te=1+1* 
If I = Active_Window™.Menu_TopY+Window_ Size then 
BReain 
Emme Ay (14 1) 5 
DelLine: 
GotoxyY(i,Window_Size); 
Write (Menu Item”); 
Active_Window™.Menu_TopY:=Active_window™.Menu_TopY+i: 
EnG: 
Ec oct OUD s 
Frocedure Gohome; 
(This pracedure positions the cursor in the home position: 
Heqin 
While I * 1 do 
Gop; 
End; «cof GoHome; 
Frocedure GoEnd; 
{TRIS procecture positions the cursor in the end position; 
Begin 


(* Reprinted with extensive modifications from Advanced Techniques in 
Turbo Flascal by Charles Edwards. by permission of Sybex, Inc. 
Copyright 1967 Sybex, Inc. All rights reserved. 
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While I < Menu _Count* do 
GoDown; 
End; Ot G@teos 
Frocedure Set Highlights; 


Begin 
With Active Window™ do 
Begin 
If I = Menu_Index then 
Begin 
Textcolor (Foreground shr 4); 
Textbackground (Foreground and 7); 
End 
else if I = Abs (Menu _Index) then 
Beain 
Textcolor (Blue); 
TextBackground (Black); 
=e 
else 
Begin 
Textcolor (Foreground and 7); 
TextBackground (Foreground shr 4); 
EGGe : 
Enc: 
Enc; ‘fof Set _Highlights: 
Begin 


Menu Count:=Addr (Menu ; 
Menu Item:=Ftr (Seg (Menu) ,Ofs (Menu) +2) ; 
Window _Size:=Active_Window™. Y2-Active Window”. Yi-i; 
If Active Window™.Menu_Index <= © then 
Regin 
CirScer.s 
Active _Window™. Menu TopY:=1; 
For I:=1 to Min(Menu Count”. Window _Size) do 
Begin 
Gotan yY Chole: 
SEU Hi gGhiigias, 
Write (Menu _Item™); 
Menu Cffset:=Menu_Offsett+Length (Menu Item™) +1; 
End: 
If Window Size = 1 then 
Buiid Borders (Double); 
BiG § | 
Menu _Item:=Ftr (Seg (Menu) ,Qfs(Menud+2); 


(+ Reprinted with extensive madifications from Advanced Techniques in 
Turbo Fascal by Charlies Edwards, by permission of Sybex, Inc. 
Copyright i987 Sybex, imc. All rights reserved. 
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For I:=1 to Active_Window”™.Menu_Index-1i do 
Menu Offset: =Menu_Offset+Length (Menu_Item™) +1; 
T:=Max (Active Window™.Menu_Index,1)3 
Active Window*™.Menu_Index:=Min (Active _Window™.Menu_Index ,®); 
Done:=False; 
Write Status( ‘Choose item using the arrow keys ““X° & ‘*Y" 
+ #179° Fress ESC to abort ‘+ 
#179° Fress ‘°“Q#217° when done’,Foreqround shl 4); 
Repeat Begin 
TextColor (Active Window™.Foreground shr 4); 
TextBackground (Active _Window™.Foreground and 7); 
GotoxyY(1,1-Active_ Window”. Menu _TopY+1); 
Write (Menu_Item™) ; 
Set Highlights: 
GotoxY(1,1-Active_Window™.Menu_TopY+i); 
Cursor _Size(Cursor_Invisible,Mono); 
EFey:=KeyintTrue) ; 
Write (Menu Item”); 
Case Lo(key) of 
i Case HitKey) of 
Joes le i Enen 
GoUp 
else 
GoEnd; 
B80; If I < Menu_Count™ then 
GoDown 
else 
GoHame; 
vot For J:=1 to Window Size do 
If I = 1 then 
GoUp; 
Bi: Far J:=1 to Window_Size dc 
If I «= Menu_Count™ then 
GoDown; 
7i: GoHome; 
Fis  Giea =ip fer 
Else Been (100) ; 
End; ‘tof case; 
12: Begin 
Frocess Window _Menu:=1; 
Done: =True; 
rains 


(+ Reprinted with extensive modifications from Advanced Techniques in 
Turbo Fascal by Charles Edwards, By permission of Sybex, Inc. 
Copyright i987 Sybex, Inc. All rights reserved. 

KKEFLERKEFERERFEREFFER Continue Edwards Excerpt eX EEXRREXHERHEHRERES ) 


241 


(HHEEKHHEKHEKHKHEKRHHHHEHSR Continue Edwards Excerpt KHEKKKHHEHHHEKKKEKHHHKHH) 


273) (Rear 
Frocess Window _Menu:=0; 
Done: =True; 
Ends 
Else Beep (100); 
End; ‘of cases 
End 
Until Done; 
With Active _Window~ do 
Begin 
Menu_Index:=1; 
TextColor (Foreground and 7); 
TextBackground (Foreground shr 4): 
End: 
Write Status(’’ ,Foreground) ; 
Cursor Size(Cursor_Small ,Mono); 
End; tof Frocess Window_Menus 


Fracedure Init _Window_Infos 
“This pracedure initializes all the of data used by the 
windowing rautines? 
Var Regs:Registers: 
Begin 
intr (¥11,Reaqs); 
Mona:=(La(Regt.AXx) and #20) = #30; 
If Mone then 
Screens=Ftr (#BO000,0) 
else 
screen:=Ftr ($BB00,0) ; 
Active _Window:=Nil; 
Screen_Temp:=Screen: 
Window _Fixed_ Part:=Sizeof (Window_Contral_ Black) 
—- $12620f (Semeen] bilimeten, 


Tf (Mem4vail « ©) or (MemAvail = Sizeof (Screen_Array) +100) then 
{ Changed per upgrade ta accomodate Tr 4.0 MemAvail 3 
New (Screen _New) 
else 


Screen New: =Nil; 
Window Count: =0; 
End; «tot Init_Window_ Info; 
BEGIN 
END. 


(* Reprinted with extensive modifications from Advanced Techniques in 
Turbo Flascail by Charles Edwards, by permission of Sybex, Inc. 
Copyricht 1987 Sybex, Inc. All rights reserved. 
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APPENDIX Z 


SOURCE LISTING FOR UNIT XMODM 


ah 
a 


(EEK KEKKEKEKEKREREKE KH KE EKER KK KKEKEEKREKERE EKER KEK KEKEEKREK KEKE KRKEKEEKEKEEKEEKKEESE) 


(HERE XMODM. FAS HEE) 
(#4#*%% This is the unit that abstracts all packet and file KEE) 
(#*2% transfers for the Xmodem protocol. The interface is ERE) 
(4%#*% derived from the Turbocom.com program in the first HHEE) 
(4¥*#*# reference, however, the implementation has been rebuilt *#**) 
(¥#¥*¥*% for command and data transter from the second source. HEX) 
(HHH HEHEHE) 
(#42 References: Edwards, C. C., Advanced Techniques in Turbo **#*) 
(SHES Pa= Coupee O- twa oybex, InCeg 1757 FHEE) 
(FREE ELE) 
(FEES ELPatic. ie enh istemsen Protocole in C," ecicn 
(HEHE i Coron engciyev,e 1), MO. 6G, po, 66-89, ####) 
(FREE June 1982, ¥HE*) 
(XRF KEE) 
(##%% Modified by Nelson Ara HHER) 
(ERE KKEE) 
meee Last Modification: Sep 89 KEEH) 


(KEE HE KREKK ERE EERE ERE KR EREE FA EE EEE ERE KE EEE EEE EE ERE ERE EE EEE EE ERELERE) 
UNIT xAmodms 
INTERFAC 


USES Miscopack, General, Wndow, Datacom, Support, Crt; 


adie | 
pare 


13 dum 99 - changed status variable to enumerated data type for 
ehanged Senc_ Recard, Receive _ Record ta 
t precedures (callable by outside processes) 


ok 
a 


Jum 69 - eliminated global variables, maved formal declarations 
for command packet building blocks into Interface 
section 

22 Jul @9 - added Respond by _file 


28 Jul 89 - added a variable ta control transfer monitor windaws 


12 Aua 89 - extended variable Monitor_transfers to include the 
Update status and the monitor windaw 


ma 
0 


ated adAux ang WriteAux to show anlyv data characters 
hanged Respond _py_file toa function ta obtain status 
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broke long resync problem with Command _Xfer syncing on 
CAN character from master and resetting after 10 block 
errors + 


CKHEREEERKAEKREHREERERKEEES Start Edwards Excerpt KEKEEKEEKEEEEKEEKEEEEK) 


CONST 
CEE = #43; 


171e2 
Result = ¢( Rx_sync, < Waiting for sync , 
Rx done, t completed if 
Rx ACK, t Good Rx, within retrym , 
Rx old ACE, < Good aie old block ? 
HME D Ts t Good Rx, EOT char } 
Aree) gd ae t Garbage on the line 4 
Re timeout, t+ nothing heard i 
Rx errors, Rad Rx, retrymax exceeded } 


Rx last black, Rad Rx, out of sync 


Ry NAF, Rad Rx, NAE sent 
R= CAN, Good Rx, CAN char 
Rx keypressed, Keypressecd detected 


Bree Waiting for sync 
completec 

Good Tx, within retrymax 
Good Tx, CRC sync rxd 
Geod Rx, EOQT char 

nothing heard 

Bad Tx, retrymax exceeded 
Good Tx, cksum ¢ync rxd 
Rad Tx, NAK received 


atin TE cole matin Eo tod Tn halls oD ool ade ol 


we loo es PO ey tO SO YO 


% CAN, ( Bed Bu. CAN char received 
Pre ele t trash on the receive line 
Ty keyorecced j:( Keypressed detected 


VAP Suporess ECT 
Suppress CAN 


t 
Monitor Transfers : bosclean; 


FUNCTION Sync Receive { seconds : integer; 
sync _ character : cnar ) : result; 


(* Reprinted with extensive mogifications from Advanced Techniques in 
Turbo Fascal Sy Charies Edwards, by permission of Sybex, Inc. 
Copyright 1987 Sybex, Inc. All rights reserved. 
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FUNCTION Receive Record ( VAR Buf : Buffers: blocksize : word: 
seconds : word; expected Block : word: 
VAR errors : byte ) : result; 
FUNCTION Sync_Send ¢ seconds : word ) : result; 
FUNCTION Send_Record (¢ VAR Buf : Buffer; Blocksize : word; 
seconds : word; block : byte; 


VAR errors : Byte ) : results; 
FROCEDURE Send EQT (¢ VAR status : result ); 


PROCEDURE Send_CAN; 
FROCEDURE Transfer File ( Send : Boolean ); 


Function Cammand Xfer (Send: Bocleans VAR buf : buffers 
BlockSize: Integer) : result; 


FUNCTION Respond by file ¢ Response : pathstring ) : result; 
Beeeectte= Send Strive (85 : String 

Function Get_response ¢ BlockSize:Integer ) : result; 
Se@eecire Strang (9 butet@s sestreng; VAR buf : buffer ); 

{ Converts a string into an Amodem buffer 
Gime. on bit to string ( VAR but : buffer ) : stringiZeé; 
+ 


£ Converts an Xmodem buffer into a string 


IMPLEMENTATION 


CONST timeout = 256: 
Retrymax = 10; 
ee 


xmodem Frame = ARRAY (1..4] of Char; 


(> Reprinted with extensive modifications from Advanced Techniques in 
Turbo Fascal by Charles Edwards, by permission of Sybex, Inc. 
Copyriaht 1987 Sybex, Inc. All rights reserved. 
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Const Xmadem_Status:Array CRx_sync..7Tx_keypressed] of Stringli7] = { 


“Rx _ sync ', «© Waiting for sync I 
"Rx done ‘, « completed i 
"Rx _ ACK. ", « Good Rx, within retrymax 3 
“Rx_Old_ACE. ', « Good Rx, old block 
Ae Seon ", *< Good Rx, EQT char ? 
“Rx JUNE ‘, « Garbage on the line 7 
"Ru _ timeout ‘, « nothing heard y 
"Ry errors ‘, « Bad Rx, retrymax exceeded ;: 
"Rx lost block ", « Bad Rx, out of sync ; 
"Rx _NAE. ", «< Bad Rx, NAF sent 7 
“Rx _CAN ', S86eed Ree Cakechar } 
"Re keypressed ‘', < Keypressed detected Bi 
“Tess yime ", « Waiting for sync ? 
‘Tx _ done ", « completed ; 
‘Tx ACK ‘, *« Good Tx, within retrymax 3} 
"Tx CEB meine y enbeed doepeikGesyneucxd ? 
Tee "4 4 bO@C Fig Sul char ¥ 
“Tx timeout ‘ja neobhanaeeiearred i 
“Teenie oie ‘, « Bad Tx, retrymax exceeded } 
"Tx NAF sync ‘, t« Good Tx, cksSum sync rxd is 
“Tx NAL ‘, t(-Bad Tx, NAE received ; 
“Tx CAN ‘, « Bad Rx, CAN char received } 
Tae ‘“, « Trash on the receive line } 
“ ieee ed ‘Jit Keypressed detected 3 
VAR 

CRE 3 JPoei eager 

Afer File = Bagie 

Status 1D, Menieeee yes ee 

Monitor _Flle:Frite eG, tno. 

apes (8b catia 

maniter _qate : boolean: 


; String; VAR Dut = Dit temee. 


{ Converts a string into an Xmadem butfer } 


VAR index : bytes 


(+ ee ala ith extensive modifications from Advanced Techniques in 


uirba oe 


by Charles Edward 


tt ¥ 


a Satan: ieee 


.? am 4¢ 
oa Syhex ry 


ig te 


Al 


=~ 
— 43 


Dy pe 
rights 


|—4 


rmission af Sybex, 


reserved, 


rie 


KEFREFEERELEFELE EF EE+ 
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Por index := Length ( s ) + 1 TO 128 DO 
buf € index J] := Char ¢ NUL ); 
END; 


FUNCTION buf to string ( VAR buf : buffer ) : stringl28; 


% 


{ Converts an Xmodem buffer into a string ; 


CONST SFACE =‘ °: 
TILDE = ‘*': 


VAR s : stringiZé: 
index : byte; 


Retail 
FOR index := 1 TO 128 DO 

IF but € index ieee SPACE . 2 lem THER 

-= ¢ + buf Cindex] 

: TeSR Ae 


Po shi is 


FUNCTION ReadAux ¢ seconds : word ) +: word; 


VAR Io: words 
Cho: char; 


BEGIN 
T:=seconds + 1000: 
While ({nat RSZSS2 Avail) and (I > 0) AND (NOT Keypressed)) da BEGIN 
Delay(1); 
Bee ti): 
End: 
I¢ RSSSL Avail then BEGIN 
fee hoes Int 
If ( Monitor_ID = 0 ) AND ¢ monitor_gqate ) then Begin 
TextColor (Foreground) ;: 
TextBackground (Background) ; 
Case Byte(Ch) af 
NUL, BELSES, Wes . su@press 3; 
ee, SR Unde par): 
CR : Wratece: 


(+ Reprinted with extensive modifications from Advanced Techniques in 
Turto Fascal by Charles Edwards, by permission of Sybex, Inc. 
Copyriaht 1987 Sybex, Inc. All rights reserved. 
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Eads Ot ee aces 
Write (Monitor_File,Ch) 5 
Emcee 
ReadAux := ORD(Ch); 
End 
else 
ReadAux := Timeout; 
Ends taf ReadAux > 


Frocedure WriteAux (Ch: Char); 


Regin 
RS222 OE Cen: 
If ( Monitor_ID = © ) AND ( monitor_gate ) then 
Begin 
TextColor (Rackground) s; 
TextBackground (Foreground): 
Case Ryte(Ch) of 


NUC Pees, ion { suppress 7: 


Fo 5 eee : Wel te "Caries, 
Ge © Writelns 
End: <(of Case; 


Write (M@piteor File ,eay: 
gee 


End: tbegin, 
‘ WriteAix } 


EOG. ec 
Procedure Send string (7 i" Seri gaee 


VAR index +: word: 


BEG ah 
IF Length ( & ) + 2 eieNweBEGIH 
FOR index i= 1-70 Pengean( om os 
Se2a2 Cutt S pce): 
Rolo2 Oot ( Chamaeren? ei 
END: 
END: 


FUNCTION Receive Record (¢( VAR Buf : Buffer; biocksize : word; 
seconds : word; expected block : word; 
VAR errors : Byte ) : results 


(+ Reprinted with extensive madifications from Advanced Techniques in 
Turbo Fascel By Charles Edwards, by permission of Sybex, Inc. 
Cosyright i987 Sybex, Inc. All rights reservec. 
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VAR 
temp : word: 
fo eWOrd. 
checksum : byte; 
Frame : Xmodem_frame; 
eh f@aer s 


BEGIN 
Ch:=Char (NUL); 
errors := 0; 


CASE ReadAux ( seconds ) OF 


Som : BEGIN 
TOM Gemeitce w= false; 5 Lum off monitor display > 
FoR@ihy=2 Co" dG 
Frame CI] := Char (Lo( ReadAux( seconds ))); 
Checksum: =O; 
monitor gate := trues: ¢ turn on monitor display 3 
Por tienes OCHO ze dO 


Eur Lid t= Ehar(_o ( Readdux (1))); 
Checksum:= (Byte (Checksum) +Byte(Buffid)) MoD 236; 
Ee 
monitor gate := false: ¢ turn off monitor display s 
Frame £43 := Char (La(ReadAuxt 1 ))); 


If (Byte(Framere]? «3 (255-Byte (Framel? wee) oF 
(Char (Checksum) <> Framel4]) then 
Reoin {Error an datacomm line: 
pea itn, 
WriteaAsx (Char (NAR) ) 
ieee sen say := Ry NAK: 
End 
else if Byte(Framet2]) = expected Block then 
Regis: (Black numbers match: 
Prcrorseaiay 
Receive Recerd := Rx_ACKs: 
WriteAux (Char (ACK) ) ; 
End 
else if Byte(Framel2]) = (expected block-1) then begin 


Receive Record := Rx_ola ACK; 

INC ( Errors ); 

WriteAux (Char (ACE)) <COld black resent...ACK it 
END 


(*# Reprinted with extensive modifications from Advanced Techniques in 
Turbe Fascal by Charles Edwards, by permission of Sybex, Inc. 
Copyright 1987 Sybex, Inc. All rights reserved. 
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else 
Begin tWe lost a black? 
Receive Record := Rx_lost_block; 
Ends 


Enid: (SOH} 


Hl 


CAN : Receive_record := Rx_CANs; 
Timeout : Receive_record := Rx_timeout; 


ae 


Receive record := Rx_EOT;: 
else Receive_record := Rx_junk; 
END smelt a@e CASE + 
END; (Receive Recara: 


PROCEDURE Get_Buffer (¢( VAR buf : buffer; blocksize +: word ) 


‘lB 


VAR 
Numreac : ward; 
index +: word; 


BEGIN 
BlockReagtxfter File, Buf, Blocksize, Numread); 
IF Numread « Glocksize THEN 
For index := Numread + 1 to blocksize DO 
Buflindex i s= CHAa aR D (aoe 
END; 


FUNCTION Senc Recore ¢ VAR But : Buffer; Bblocksize : ward; 
seconds : word: block : byte: 
VAR errors : Gyte ) @enesulia 


VAF 
Numread, 
Numwritten : word: 
1rde > word: 
checksum : byte: 


Sis) EneEr 


(# Reorinted with extensive modifications from Advanced Techniques in 
Turbo Pascal by Charles Edwards, by permission of Sybex, Inc. 
Capyright 1928? Svbex, Inc. All rights reserved. 
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ending_char : char; 
quit : boolean; 


BEGIN 
monitor gate := false: ¢ turn off monitor display } 
Biemers f= Us 
checksum := QO; 
FQR index := 1 to blocksize DO 
checksum := (checksum + ORD ( Buf Cindex] )) MOD 256; 
Begin 
IF blacksize = 128 THEN WriteAux ¢( Char ( SOH ) ) 
ELSE WriteAux (¢ Char ( SOH )):; 
writentine. Ghar ¢{ Hlock } ); 
Wrleeniyeeieerar ( 2SS-Block }) }: 
monitor gate := trues ¢ turm on monitor display 3 
For index :=i to blocksize DO 
WriteAux (Buf findex J): 
monitor cate := false; ¢ turn off monitor display 3} 
WeiteAux ( Char ( checksum }); 
Furgeline: 
CASE ReadAux ( seconds ) QF 
ACE. 2) JSe gene etme ce 1X Abs 
NAF. > Send Record := Tx_NAE: 
CAN : Send Record := Tx_CAN; 
Timeout : Send Record := Tx_timeaut; 
GSE eeaene nheGGaen:— i alunk: 
End: icase 
IF Keypressea THEN Send_Record := Tx_keynressed; 
END: ftrepeat? 
Ena: 


FUNCTION Sync_ Receive ( secands : integer: 
sync_character : char ) : result; 


(+ Reprinted with extensive modifications from Advanced Techniques in 
Turbo Fascal by Charles Edwards, by permission of Sybex. Inc. 
conyright 1968/7 Sybex, Inc. All rights reserved. 
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VAR 
I, 
tries : integer; 


BEGIN 
FurgeLline;: 
WriteAux (sync_character): t try immediately 3} 
tries := TRUNC ( seconds /3 + 0.6 ): “convert seconds to cycles } 
WHILE ( (not RS232 Avail) and ( tries = 0 ) 
and ( NOT keypressed )) do BEGIN 
WriteAux (sync character) ; 
JT := 1000; 
While ((net RS5232 Avail) and (I = G@ ) and ( NOT keypressed )) do 
Begin; 
Delay( 3 )3 t 10 ms * 1000 cycles = 10 seconds 3 
Det ( oleae 
Erids 
VEU (teres J 
ENDS 
IF Feypressed THEN 
Sync Receive := Rx_keypressed- 
[St IF RS2s2 Avall THEN BEGRe 


IF RS232 peek «> Char ( CAN ) THEN Sync_RKeceive := Rx_sync 
FLSE Sync_RKeceive := Rx_CAN; 
END 
ELSE Sync_Receive := Rx _timecut; 
END: 


FUNCTION Synmco_Send ¢€ seconds : word ) : result: 
guit : boolean: 


Guilt ¢=eFALSe: 
Reoest 
ue le 1 me. 


(# Ferrinted with extensive modifications from Advanced Techniques in 
Turbo Pascal by Charles Edwards, by permission of Sybex, Inc. 
Cepyright 1968/7 Sybex, Inc. All rights reserved. 
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CASE ReadAux ( seconds ) OF 
GEG © BEGIN ¢ checksum handshake +>; 
Ent -s= TRUE: 
Sync_Send := Tx_CEE syncs 
quit := TRUE; 
END; 


NA. : BEGIN «< checksum handshake 3 
Gne += FALSE; 
Sync _Send := Tx_NAk_syncs 
Geimeeee TRubs 
END: 


Timeout : BEGIN 
Sync_Send := Tx_timeout; 
Gti := WARUES 
END: 


CAN : BEGIN 
Sync_send := Tx_CAN; 
Cults = ties 
END; 


ELSE BEGIN 
Sync_send := Tx_junk; {Garbage on the lines 
RST 
Ego; «EASE + 
UNTIL ¢ quit 3 QR Keypressed: 
IF keyvpressed THEN Sync_Send := [Tx_FKeypressed: 


FROCEDURE Send _£OT ( VAR status : result ); 


BEGIN 
Ir ( Suppress EQT ) THEN 
status := Tx done 
ERoesbEGIN 
Semone s= Os 
ais) aul 


WriteAux ( Char ( EQT )); 
rue s(eerors)s 
UNTIL (Readfux ¢( 10 ) = QRD ( ACK )) OR ( Errors = Retrymax }; 


(* Reprinted with extensive modifications from Advancec Techniques in 
Turbo Fascal by Charles Edwards, by permission of Sybex, Inc. 
Copyright 19387 Sybex, Inc. Ali rights reserved. 
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TIF Errors = Retrymax THEN 
Status := Tx_timeout { timeout on EOT 3 
ELSE status := Tx_done: 
END 
END; 


PROCEDURE Send_CAN; 


BEGIN 
TF NOT Suppress CAN THEN BEGIN 
WriteAux ¢ char (CAN)); 
WriteAux ( char (CAN)); 
END: 
ENDE 


Function xAmacem_Xfer (Send: Boalean; HKlockSize:Integer) : result; 
CThis procedure performs an Xmodem file transfer 


Inout: Send - True ta send a 
1 


file 
False to receive 


ve a file 


RlockSize - The block size~to use for the file transfer @ 

VAR encing_cnar : char: 

After Type:Stringlé]; 

dane, 

Abort: Boolean: 

Status +: result: 

Beer Morte - 

Sagas 

settings, 

Block Count : bytes 

I, 

od rena Br 

aeier as 

Blocks, 

Numread. 

Error Count : word: 

Byte Count: Longint; 

But > butter 


Srocedure Update Status; 
Var TI:integer: 
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Beqin 
Peon tor ein When begin 

If Get _WindowlStatus ID) then; 

Bo ee 2 OO. Seas hl 
Gober, yii 71); 
Cereal: 
Case 1 of 

my Write (Xmodem_StatuslStatus]) ; 


. 


oS: “Werte (Hieers) ; 
4; Write (Byte Count); 
See Nite (Eeier fount) ; 
End; <of Case} 
hid: 
If Get Window(Monitor ID) then; 
END: 
End; tof Update Status: 


Begin 
fPemeniter Transters THEN 
Begin 
If Open Window(1,8,890,24,Flag_ Borders, Monitor Window’) = 0 then: 
Ghroer s 


Wreiteln( Opening monitor file’); 
Monitor ID:=Active Window”. ID; 
Assian(Monitor File, “MONITQR.DAT’): 
Rewrite (Monitor File); 
End 

else 
Begin 
Monitor _ ID: =; 

Bio 

Yfer Type:='Xmodem ; 


{ Cpen the Status Window = 


If Goen Window!40,1,80,7,Flag Borders,xfer_Type) = 0 then; 
Status ID:=Active Window. ID; 
Pibeoct * | 
not Sita ce 2 dG 
Begin 
isoecny (1,1): 
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tJ 
mat 


(EXE HKHEEKKEKK EEK HEE EER 
i *aF 

Write’ ’Name 
Write (Status 
Write( ‘Blocks 
Write( Bytes 
Write(’Errors 

(tof Case? 


Case 


Men & ct hl ee 


ng; 
Eni. 

RS Eight _Bits; <¢ make sure 

Blocks: =0; 

Ryte Count:=0; 

Errorss=0:3 

Eis cis oO GW eens 

Block Count:=1; 

Abort:=False: 

If Send then 
Reain <Ssena the files 
S1e7s\i 6) aa 
Uccate status; 


Status qd ¢ 


4 


eB 
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~~ 
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Mw resi p & DM 
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rr 
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= 
Mey eas 
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GE 
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ft 


rr 
v0 


"ite 


rt | 


j—4 
Wn 
If 


TI 
cr 
My 


or 
LJ own 
need 


fT] 
aa 
= I ey 
EO snent Et 
-— 
= 


rep. 
Zz 
Wy 

I 


aia 


LN 


re 


rh 
ay 


D 
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ee 
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) 


Ty 
cr 
is Gas te EL le 


MM] 1M 
a 


aes! 


on 
— 


mi | 
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( + 


ry 
So7 


Copyright 1 
FREEHEE SPREE HEES EK HPHESH 


ao“, lH — * 
SWORN 5 


Cantinue Edwards Excerpt 


SYMC§ . Meu yO Opes eee 


1G 


KKKKKKKKKKKKEKRKKHHKER) 


. 
ar? 
i 


= 


~ 


~ 
2a ‘#8 spa ‘#8 


» 


Wh 
4 


we can pass eight data bits 


mt 


d§ 


[Tx CEE sync, Tx_ MAE sync]) THEN BEGIN 
dgement from other side’); 
_File)> AND NOT (done) do 


uf, blocksize ); 
_Record 


( Buf, Blocksize, 10, Bleck cate 


errors )¢§ 
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CASE Status OF 
Tx ACK : BEGIN 
Maes eoumt :=— Error_Count + Errors; 
INC (Blocks) ; 
Byte Count: =Byte_Count+BlockSize; 
INC (Block Count); 
END; 


Tx NAE : BEGIN 
PNECSmr orm sealmt? 5 
If Error_count += retrymax then done := true; 
END: 


TX timeout : BEGIN 
INC (Error _count) : 


If Error_count += retrymax then 
done := true; 
crs 
Tx_CAN, 
Tx keypressed : BEGIN 
done := TRUE; 
END; 
Sce BEGIN 
LP CE Olt mie eulreue) ss 
If Error_count += retrymax then 
Recin 
Gone := true; 
Status := Tx_errors; 
Ends 
ena: 
EMD: 


Undate Status; 
rigs o.err ce > 
While KeyFressed da 
Begin 
Ch := Readkey; 
Gs 
END: 
If Status = TX_ACK then Send_EOT ( status ) 
SESE sema Can: 
END 


(* Reprinted with extensive modifications from Advanced Techniques in 
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else 

Begin (Receive file: 

Status:=Rx sync; 

Update status; 

Status := Sync_Receive ( 60, Char (NAF) ); 

CASE Status OF 

Rx EeyFressed ; Begin 
Abort := TRUE; 
Update status; 
Ch := Readkey; 
End: 


Rx timeout, 

Rx CAN : BEGIN 
Abort := TRUE; 
Update Status; 


END; 
SESE Repeat 
Status := Receive _Recard ( But, blacksize. I, 
Block count, errors ): 
CASE Status OF 
Rx ACK : BEGIN 
INC (Blocks); 
Ryte Count: =Byte Count+BlockSize; 
INC ( Block_Gount ?); 
Bloskwei tet *her File@sut, blegeksize 7; 
END: 
Soee on 
Rx timeout, 
Rx Old ACK : BEGIN 


INC « Error. Getmina: 
IF Error Gaunt > Frets yma atime. 
abernt := TRWe: 
END: 


RR SEO) 2G 
Status := Rx_EOT; 
Bie 

Ses a sie 0) 

Error _Counmte=:= Err@re_ Geant terre omc; 

IF Errear Count > retrymax THEN abort := TRUE; 
END; 

ENS ot Cnoee 


(® Reprinted with extensive modifications from Advanced Techniques in 
Turbo Fascal by Charles Edwards, by permission of Sybex, Inc. 
Copyright 1987 Sybexj lnc Rl! mah t= "reservar 
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Update Status; 
If not Abort then 
While KeyFressed do 
Beaqin 
Ch := Readkey, 
Abort:=Trues 
Status:=RKx_keypressed; 
Eee : 
Wiper) (Status = Rx_EOT ) or Abort; 
Eiews CASE 3 
If not Abort then Status:=Rx_ done; 
Undate Status: 
If Status «+ Rx_done then 
WriteAux (Char (CAN) ) 
else 
Wri teAux (Char (ACK) ); 


Stalk 

Amogem Xfer := status: 

Closetxfer File): 

1¢ (not Send) and (Abort) then 
euasetAter File): 


© Close the Status window } 

RS Restore ( Current_COM }: ¢ restore comport settings to whatever 
was selected before 3 

Tf Cicse Window then: 

PPeMenitar iD + © then 


Begin 
if Close Windaw then; « Close the manitor window if open 3 
Textcolor (Foreground: ; 
Textbackground (Background: : 
Gaoee (Monitor File) ; 
Mommeor ID := 0; 
ice: 
End; iof xmccem xfer: 


Function Command Xfer (Send: Boolean; VAR buf : buffer; 
Oe ioe eden) sa result: 


iThis pracecdure performs an command/response exchange 


Input: Senc - True te send a buffer 
False to receive Buffer 


(# FResrinted with extensive modifications from Advanced Techniaues in 
urbe Fascal by Charles Edwards, by permission of Sybex, Inc. 
eopyright 19687 Sybex, Inc. All rights reserved. 
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BlockSize - The block size to use for the transfer 


ws 


VAR ending _char : chars 
After _lype: Strirai tear 
done, 

Abort: Boclean; 
SEatLUS a mest: 

Ch. => Chat: 

Err ors. 

Settl Ags. 
BlOGleCGunk ss sbyaes 
I, 

index, 

Riacks, 

Numread, 

E=rGr COunt Saneie. 
PYVCECCGRNCs ames 


CGP Se. ene hee en 
t atic? sehen: 
Begin 


Write (xmodem StatustStatusl);: 
Write (Blacks): 

Weite (Byte Count): 
Weite(Errar_ Count): 

(oF Case; 


Stn mie 


TI 
BE ee 
a 


If bet Window (Moniter_ID) thens 


Begin 
Tf Monitor Transfers THEN 
Begin 
Tf Open_Window(1,8,80,24,Flaq_ Borders, ‘Manitor Window’) = 0 then; 


(+ Reorinted with extensive madifications from Advanced Techniques in 
Turto Fascal sy Charles Edwards, by permission of Sybex, Inc. 
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Bvesisir 4 
Writeln (‘Opening monitor file’); 
Monitor_ID:=Active_Window™. ID; 
Assign (Monitor_File, ‘MONITOR.DAT’); 
Rewrite (Monitor File); 
Xfer Type:= Command Transfer’; 
If Open_Window(40,1,80,7, Flag_ BRorders,Xfer_Type) = © then; 
Status [ID:=Active Window”. ID; 
Cigser: 
For IJ:=1 to 3S do Kegin 

Seeaay (i,.1) 5 

Case I of 


Pe aWitte | (eS 
Gemevbite’ Status :°) 3 
few te wor OCcKS '°): 
4: wWrite(’BRytes ae 
meeeverce< Errors :°):s 
Boe, Lot Cases 
me. 
Fad 
else 


Monitor _ID:=; 


po lei ont Bits: { make sure we can pass elght cata Bits 3: 
Biocks 3:= @: 
eErors := 0: 
Byte Count: =O; 
Error Count: =; 
Bloch Count:= 
AGart: i 
If Send ther 
Recin (Send the command: 
Seems =e fyne; « HOldina far start 3 
Update _ status; 
fears += o¥mMerosenG ( 10s 
Tf Status = Tx_Keypressed then Ch := Readkey; 


Uodate | ear IS 
IF Status = Tx_Keypressed THEN 
4 keep status same } 
PRCeweeNGtetaractis IN [Tx CEE sync, Tx INGE ssynce3}) THEN BEGIN 
Writeln ("No acknawledaement from other side’); 
(Status := Tx_timeout;+ 
Update Status; 
END 


(* Reorinted with extensive modificatians from Advanced Techniques in 
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Elast 
BEGIN 

done := false; 

REPEAT 

Uadate -Stamits. 

status := Send Record ( Buf, Blocksize, 10, block_count, 

errors )3; 

CASE Status OF 


Tx ACK. + BEGIN 
Error _Count #= Error S0Gbnce eenieete—e 
Byte Count: =Byte Count+BlockSize: 
done := true; 
END: 


BEGIN 

ING (Ets Gr Caimi: 

If Error count += retrymax then done := true; 
ep: 


Tx_ NAF 


es 
——_ 


TX timeout : BEGIN 
ee al et emake (lta ayy 
If Error_count += retrymax then 
done := true; 
Enc: 


~% keyoressed : BEGIN 
Writeln(’ aborting’); 
dane := TRUE; 


END; 


oe BEGIN 
OTE Stet ole feta (Ulene |) 
If Error count 3-= retrymax then 


Begin 
Gone := true; 

fatus := Tx_errors; 
ale: b 


Sans: - 


(# Reorinted with extensive modifications from Advanced Techniques in 
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UNTIL done; 
While KeyFressed do 
Begin 
Ch := Readkey; 
Blinc) 
END; 
WJpdate_ status; 
If Status = TX_ACKE then BEGIN 
Send EOT ¢ status ); 
status := Tx_done; 


END 
E!SE Send CAN; 
END 
else 
Heagin tRecelve file) 


Status:=Rx sync; 
Undate status; 
Status := Sync_Receive ( 60, Char (NAF) 33 
CASE Status OF 
Ry KeyFressed : BEGIN 
Abort := TRUE; 
Update status; 
Ch := Readkeys 


Eales 


Ax CAN eee 
Abart := TRUE: 
Undate Status; 
Mie 


+ 
Receive Record ( Buf, Glocksize, 14, 
BOG seoume. errors ): 


Fi 
it 


v7 


E 


iD 


ne 
: 


How 


Wt 


S 
+ 


Lf 
Th 


CASE Status OF 


Rx ACE es SEN US 
Ryte Count:=Byte Count+Blocksize; 
eos 
Beet: 


Rx timeout, 
pomeela ACE. + BEGIN 
ING] < Error Cetin, 
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IF Error_Count = retrymax THEN 
abort := TRUE; 


END; 
Ceo : BEGIN 
Status := Kx TES 
END; 
eles REGIN 


Error_Count := Errerns@otnt) + Graeme: 
IF Error _Coumt > retrymax WHEN 
abort := TRUE; 
END; 
END; «CASE; 
Update Status; 
If not Abort then 
While ReyFressed do 
Regin 
Ch 3:= Readkey; 
Abort:=True: 
Status:=Rx keypressed; 
End; - 
Until (Status = Rx_EOQT ) or Abort; 
END: « CASE 3; 
I¢ mot Abort then Status:=Rx_done;: 
Update Statue; 


If Status <> Rxe_done then 
WriteAusx (Char (CAN) } 
elee 
writeraux (Char (ACE) ): 


Ena: ( Receive +; 


L 
Command Xfer := status; 


ase the status window :} 
stare comport settinas to whatever was selected tefore 
estore ¢ Current_COM }; 

Monitor_ID > 0 then {£ Clase the monitor window 3 


=. 


Tf Close Window then; 

If Close Window then; 
Textcolor (Foreground); 
Textbackground (Background) ; 
Clase(Monitar File): 
MOM 1 Girt le eres 
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Se irel's 
End; <¢af Command Xfers 


Procedure Transfer File(Send: Boolean); 
{Thie procedure initiates a file transfer 


Input: Send - True if we want to send a file 
False to receive a file 


<< uy 
Nh 
“ 


FileName : Long String; 
I,Jd: Integer: 

Abort: Boaleans 

status : result; 


Reain 
Abort:=False: 
Tf Open Window (20,16,60,19,Flag_Forders, Name’) = © then; 


Doct : 
Write’ File Name: ‘); 
Readin( FileName ): 
If Close Window then: 
IF ( Lemgth ( FileName ) = 9 3} or (FileName = “F) THEN 
t da nothing +; 
Bese BEGIN 
For J:=1 to Lenath! FileName ) do 
FileName [UJ] := UpCase( FileName Ed] ); 


Assion ( Xfer_ File, FileName ); 
If Sens then Begin 
23) ae 
Rese (Atermmrle, | dy 
CST + 
If jOResult = O then Begin 
NoFileé FileName ): 
Aborts=Trues 
Emer 
End 
else 


Rewrite (Xfer File, 1); 
If not Abort then status := Xmodem_Xfer ( Send, 128 ); 
END: 
End; tof Transfer_File; 
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FUNCTION Respond_Bby_file ( Response : pathstring ) : result: 


cr 


{This procedure provides the user a response contained in a file 


Input: Response - the complete path specification for the file 


1 
J 


CONST Send : boolean = TRUE; 


Var 


Abort: Booleans: 


Regin 


Abort:= 
Assian ¢ Xfer_File, Response ); 


False; 


{#17} 


Reset (Xfer_ File, 1); 


ez lle i 


End 


If JQResult = © then 


Begin 
NoFile (Response) : 
Abort:=Trues: 


Enge 
If not Abort then Respond _by_file := Xmodem Xfer ( Send, 1268 ) 
ELSE Respond by _ file := Tx_CAN; 
; << Respond_by_file +: 


Function Get_response ( BlackSize:integer ) : result; 


mrocecure performs an Xmodem file transfer 


Input: Send - True to cend a response 


VA 


False to receive a series of responses 


ile transter 


a> 


BlackSize - The Glock size to use for the 


Status ID, Monitor_1ID must be seen by WriteAux, ReadAux 


ending char : civart 
Fer lysee: Stele: 
done, 

Abort: Boolean: 
Status wie mec it 


Ny 
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Cigh Bee Greta 
Eeicrs, 
Settings, 
Fee Count : 
I, 

B1lGer, 

index, 
Blocks, 
Numread, 
eat Count : 
Byte Count: Longint; 
wi: butter; 
Display_Window_ID : 


bytes; 


word; 


byte; 


Beqin 
Monitor_ID := Active_Window™. ID; 
Assiaqn ( Monitor_File, ‘NUL’ ); 
Rewrite ( Monitor File )3 
< Chance to current comms >; 
RE Eight_Bits; « make sure we can 
morks =O 3 
See eouUnts =U: 
Errors: =U: 


pass 


a 
= 
1 
in 
ui 
iD 
cL 


— f 


Rx timecut, 
R= CAN 


DD 
oT 
O 
4 
cr 
I 
—{ 
A 
= 
mM 


ELSE Repeat 
Begin 
Status := Receive_Record 
BRleck_count, errors );: 


(* Reorinted with 


Soave rare) roy,  oYUEX | 
FEFEEKEEE FEE KF HRSH EEE 


Ji scar 
Continue Edwards Excerpt 


tJ 


eight data bits 


KEKKKKEKEKKEKEKREKEKEKSE) 


ot 


( But, 0i@ehetc2e. 


xtensive modifications from Advanced Techniques in 
Turbo Fascal by Charles Edwards, by permission of Sybex, 
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(HHERKHRERRKEKEREFEHR «Continue Edwards Excerpt 
CASE Status OF 
Rx ACK : BEGIN 
INC (Blocks); 


KEKEKKKKKKKKKKEKRHKKER) 


Byte Count:=Byte Count+BlockSize; 


INC ¢ Block_Count ); 
END; 
ee WG bee 
Rx _ timeout, 
Re Ola ACE 27 BEGtR 
INC (¢ Error_Count ); 


IF Error_Count = retrymax 
END; 
Rx EQT : BEGIN 
Status = he EGt. 
END: 
Rx CAN : BEGIN 
apart = awe: 
END; 


Pee ere aity 
Cie Gh. Gb aieenes 
LP error escour: 


Error 2oUnt 2 oaaeus: 
* retrymax THEN abort 


END; 
END: tCASE: 
If mat Abort then 
While FeyFressed da 
Beoin 
Cho s= Reagkey: 
AHO LIS TruUesY 
Status:=Ry keyoaressed: 
an ge) 
END i Receive + 
Until tStatus sahx EO) ) er bare. 
ENDe 1 CeGea. 
If not Abort then Status:=Rx_dones: 
If Status <> Rx_done then 
WriteAus (Char (CAN) ) 
else 
WriteAusx (Char (ACE)? : 
EnG: 


Get Response := status; 


THEN abort := TRUE; 


:= TRUE: 


(* Reprinted with extensive modifications from Advanced Techniques in 
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{ restore comport settings to whatever was selected before ;: 
peerestore ( Current COM )eq 


If Monitor_[D = © then 
Regin 
Textcolor (Foreground) ; 
Textbackground (Background) ; 
Close(Monitor File); 
Monitor_ID := 0; 

irc : 

End; << Get _response +; 


BEGIN 

Suopress EOT := FALSE; 

Suopress CAN := FALSE; 

Monitor Transfers := TRUE; 

monitor gate := false; < don’t display xmodem packet headers : 
END. 


{* Reprinted with extensive modifications from Advanced Techniques in 
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APPENDIX AA 


SOURCE LISTING FOR PROGRAM DISTRIB 


%. 
’ 


( HHH HH HK KKH KKK HH KKK EEK EEE EK EE EE EEE KE EEK EEK EEE EEE KEELE KKK KEKE EEE EKREKEEES ) 
(¥HHX DISTRIB.PAS KHER) 
(¥#*#% This is the main program for the Master/Slave networked ***+*) 
(+¥*¥* computer system. The same program 1s used for both the *##*) 
(#¥*#e% Master and Slave, with the function being selected from ****) 


(#*¥** the command line as follows: HEE) 
(HHHE HHH) 
(##¥* Master: Distrib Master (also allaws program config HEE) 
(HERE HEE) 
(4#*¥#% Gerver: Distrib Server HEHE) 
(KEES HEHE) 
(###* Reference: Edwards, C. €., Advanced Techniques in Turbo *#¥#*#) 
(KEE Pascal, pp. 220-275, SYie ime. eae Bs 
(HEEE EHKEF) 
(*8** Heavily madified from the terminal emulation program HEX) 
(¥#¥*% found in the reference. Converted to a Turbo Fascal 4.0 *###) 
(¥%#* ocorogram by Nelsan Ard ¥HEX) 
(HHES KEE) 
(See Last M@dification: Sep a7 KEEK) 


LKEKEEESKEEEE REE EERE KEKE KEKE EK FEES KEE EEK KKE KEKE EK KEKKEEKKKREE EERE F ERG EKG) 


(# Modification history 
2 Sen 89 - Replaced lacal RSLZ2S write procedure with 
Datalom.Send String 
*) 
Seamus (Range checking on: 
CEB+3 cBHoolean complete evaluation an: 
LES+3 cotack checking oan} 
a ee .1 78. ecneer eaaeen. 
LEN 5 No numeric coprocessor: 
CEM 65500,16384, 65500} (Modified default stack and heap: 


Frogram Distrib: 


xmadm, 


ZG!) 


pigicOri ods 

Saoport, 

Frinter, 

Farser, Spawn, miscpack; 


(KEK KEKEKE KEKE KER EREEE 


Procedure Save File(D: Boolean); 


Start Edwards Excerpt 


EHEEKEKEEKEEKE KEKE KKKERKHES ) 


<This pracedure asks the user if he wants to save a changed 


configuration If so, 


it writes the appropriate file 


Input D: True if saving default values 
False if saving phone file 


Yh 
J 


Var Configure:File of Byte; 
Fhone:Fhone_ Recora; 
J:Intecers; 


Begin 
If Ofen Window(S0,9,6/7,12,Flag_HKorders,'‘) = 
aoer : 
io eRen 
Write (’Save defaults?) 
else 
Write(’Save this entry? ’); 
If Yest‘Save’) then 
Begin 


Migcat % 
Write Saving... 
ie cae 8, 
Regin 


1 


QO then; 


Assign (Configure,Defaults. Default Name) ; 


es 
Reset (Configure); 
ea ta 


If [JOResult =« G then 


NoFile(Defaults. Default_ 


elise 
Regin 
ueoet s 
Wreiteln( If you want to 
Write’ You must end and 
Ore 4): 
If Close Window then; 
SS ayes 
Ena 


(¥ 


SQove odie, OVbDet Inc. 


EEELEEEEEFER EEF EEE EEF 


Continue Edwards Excerpt 


Cal 


Name) 


use these parameters); 
restart Distrib’); 
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LEEPER EFEEEEKERFEFEES) 


CHR EEEEKEKHEEEEEEEERHRE Continue Edwards EXGER ET KKEKHHHEHREKHEHHKEHHHESR ) 


elce 
Hegin 
ze! 
Assign (Phone_File, ‘DISTRIE.FHN’); 
Rewrite (Fhone File); 
For J:=1 ta Fhone_Menu™.Length do 
Regin 
Fhone.Name:=FPhone_Menu™.Names(CJ1; 
Fhone.Phone_Data:=Fhone_ Stuff*CJd; 
Write(Fhone_File,Fhone)s; 
Emgie 
Close(Fhone File); 
CER+ 5 
res 
End: 
Tf Close Window then; 
End: ‘taf Save File: 


{$V S5 

Frocedure Write AUX String ( S : STRING ); 

This procedure writes a string aa ta the currently selected COM port} 
VAR index : byte: 


REGIN 
FOR index := 1 TQ Length{S) DO BEGIN 
RSZE2 Out (Slindex]); 
Eide 
END: 
Cae 


Frocedure Dial _FhonetI:Integer; Demon_Dial:Baclean);: 

{This procedure diais a phone entry. The demon dial feature is the 
only feature of Distrib which explicitly assumes the presense af 

e Hayes or Hayes compatible modem. 


Input: 2f - The index into the phone array that we are to dial 
Demon Dial - true if we are to repetitively dial until an 
answer 15 abtained 


Var eae anaes 
Gia .abh ina: 


Se 
laetlabietes 
(Connected: Boolean:} 


(* Reprinted with extensive modifications from Advanced fechniaques in 
Turbo Fascal ag Charles Edwards, by permission of Sybex, Inc. 
Copyright i987 Sybex, Inc. All rights reserved. 
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d: Integer; 
Time: Integer: 
gouit : boolean: 


Frocedure Flush Buffers 

Velen s lates 

Regin 

Repeat pecan 
Ch sae hoc on 
es nae RS222 Avail then Delay(200) ; 
End 

Until mot RSS32 Avails 

Peeve) F LWem Butter 7 


Begin 
Be Gleantns 
123 sae 
Seeoeeheme Stutt £1) do 
Reqin 
RS Initialize (Defaults. Defauit Modem,Fhane_Baud,Phone _Farity. 
Fhone Stop.Fhane Length) ; 
Pega. -—e mone Echo: 
Bina! 
bast Dial:=1: 
Tf Bemen Cial then 
Regin 
rataltom. Send String ( ATZ'+Char (CR!) : 
sec oolt ters 
Delay(ilOUud: s {Give mocem time ta reset: 
DataCom. Send String (‘ATVIQCE1S/7='+Char (Dial Delay) +Char iCR) >: 
Pee windawi lo, co.i17,Flag Borders, Dial’) = 0 then: 
Pireser : 
Wri tein’ “Name 2 fFhone Menu”. Namesfld)s 
Weitein( Attemet me ee 
Wei tein! ‘Status SS 
Weiteln(’Startec feo lieve 
WreitelnAf Dialed st :7); 
Writeln (Elapsed ned ee 
weite (options fos LOPE te ee Ovecimetey tO cycle’): 
Sil. meester: 
cunt: = 


; 
ma >= False: 


(*% Reprinted with extensive modifications from Advanced Techniques in 
Turbe Fascel by erates Edwards. By permission af Sybex, Inc. 
Lapierre, OYE rics All riqnre o~ 
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Repeat Kegin 
Count: =Counte+l; 
Jime:=O: 
Gotax¥ (12,2): 
Write (Count) ; 
GEtoryY (less 
Creo 
Write(’Dialing’); 
Got Are Sas 
Write (Get Time); 


DataCam.$end String (Fhone_Frefix+Phone_Stuff*C1I].FPhone Number 
+Char (em): 


Flush Buffer: 
Jr:=0: 
Delay (2000): ‘Give time to dial the phone; 
While not (FKeyFressed or R&S222 Avail) do 
Regin 
i@lay (1): (this delay 15 correct for the FC or aT, 
1t mey have to be changed for an AT ar 
faster baxs 
cf= Jere 


Iq J = 100 then 


=} 
inl 
+. 
EE ced 


ie: 

Saal 

I“ KeyPressec then 

Becin 

Lhos= Readteys 

Tf Keveressed then 
Ch := Readkeys 

if Ch = Char (ESC) then 
Begin 
Ss:=‘Abarted’; 
quit := True: 
Frid 

ele 


coy it 


t| 
07 
n 
— 
ja. 
ze | 
OQ 


(® Reoprintec with extensive modifications from Advanced Techniques in 
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(ERRKEEEKEREERSERKREEH Continue Edwards Excerpt 


Datetoeneoeneeathimatemar (Ch) ): 
Delay (2000) | 


If RSS eee valt them Fittsh Butter 
Eiie 
else 
Begin 
enc ek 
NEBSoe nee hoeoe in 
Repeat Begin 
Chet = hose 13 
If Ch = Char (US) then 
as =etuhs 
End 
ieee = Active CLP) 5 
i ieaies 
mo A ee ce 
Clr bails 
Write (S)s: 
If not Connected then Delay(S3000); 
End 
Until Connected OR quit: 
for sbetwnei=1 toe 10 da Beep a0) ; 
if close Window then; 
ENG 
else 
DataComm. Send String (Phone Frefix+Phone Stuff 
Phresh): 
($R+} 
End: tof Dial Phone: 
@eoeecure Dialinao Directory: 
LTRIc goroececure allows tne user toa dial or madif 
the phane array? 
Var I,d:integer; 
Function Get Dial: Integer; 
reaqin 
If Ofer; Window(24,5,26,Min(S6tPhone Menu” 
‘Fhone List) 0 tiem 
Get Dial:=Frocess Window MenulFhone_ Menu): 
T¢ Close Window then: 
Eptemeoer Get Dial 3 


( 
Turtbe Fascal by Charles 
Zoowereant .70/ Soe , 

EPREL EP PE EEF ERP EEG EHEH COT 


rc ee) 
zinue Edwards Excerpt 


~™ 7 


al ! 


PCT Geri a 2 oe 


KEKEEKREEKKEKEKEKRFE RHE) 


nee on = Chat (Lr 


PCT ).Phone_ Number+ 


Sqeemet tie emcries 


,-lag_ Borders, 


Recrinted with extensive modifications from Advanced Techniques in 
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“1ghts reserved, 


Sybex, Inc. 


KETPEEKEEKKEEFERE SHEDS) 
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Regin 
If Open_Window(36,5,44,11,Flag_ Borders, ‘Choice’) = 0 then; 
>=Frocess_ Window _Menu (Dial Menu); 
If Clase Window then: 
Case I of 
GQ: : Bal... Nev enetee: 
1,2:Hegin ‘Dial or Demon Dial} 
J:=Get Dial; 
If J + O then 
Dial FPhone(J,I=2); 
Erids 
3: Begin «Modify; 
I:=Get_Dial;: 
lt Lee een 
Modity Emtry Ch): 
Ene: 
4; Kegin (Delete; 
If FRone_Menu™.Length = 1 then 


Begin 
If Open Window(45,9,67,12,Flag_Borders,’’) = © then; 
ioe. 
Write(’Cannot delete last entry’): 
EO ss 
I¢# Close Window then; 
Enc 
else 
Begin 
i:=Get Dial; 
Tt I } @ then 
Reqin 


Qld Fhone_Menu: =Fhone Menu: 
G1 d#FPhonesSouert :=FPheme Siar : 
J:=Fhone Menu”.Length: 
GetMem(Fhone Stuff, (J-i)*Sizeof (Phone Farams)); 
GetMem(Fhane Manu, (d-1l) *Sizeof (Phone Nameire) ; 
Move (Qld Fhane_Menu”,Fhone_ Menu”, (I-1)+ 
Sizeof (Fhone_ Name) +2); 
Move (Ghd FPRoneeoti  ,Pnene sorts Foe = 
Sslizeaf (Fhone Params) }; 
If I < J then 
Begin 
Move (Qld Fhone Menu”.NameslIit+il, 
Fnone_ Menu”.Names(Ii, 
(J-T)*Sizecf (Fhone Name)); 


(* Reprinted with extensive modifications from Advanced Techniques in 
TuraGo Fascal by Charles Edwards, by permission of Sybex, Inc. 
Lopyright 1987 Sybex, Inc. All rights reserved. 
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fevetalasrmone stuff“Ci+i),Fhone_ Stuff “Cli, 
(J-l) *#Sizeof (Phone Farams)): 
Crna: 
Fhone Menu™.Length:=J-1; 
FreeMem(Old_ Fhone_Menu,J*Sizeof (Fhone_ Name) +2) ; 
FreeMem(Old Fhone_Stuff ,J*Sizeof (Phone_Farams)); 
Save File(False); 


eines 
end: 
Ends 
a -Reqin {Add} 
a> 

Ole FPhone_Menu: =FPhone_Menu; 
foe one ottitts—rhnone Stutt: 
GetMem(Fhone_ Stuff, (Fhone Menu™.Length+1) * 

Sizeot (Fhone_Farams)); 
GetMem (Fhone_Menu, (Fhone_Menu”.Lengtht+1)+* 

Sizeof (Phone Name)te); 
T:=O1d Fhone Menu™.Length; 
Move (01d Fhone Menu*,Phone Menu”, ]#5izeaf (Phane_Name)+e2); 
Move (Old Phoene Stutf™,Frane_ Stuff”, 1*#5izeof (Phone Farams));: 
(eon ae 
Fhone Meanu™.Length:=I; 
Fhone Menu™.NamesCIj:='...7o be orovided... is 
Move (Defauite.Default Phone,Fhone_Stuff*tid, 

Sizeof (Pnone_Farams)): 
ities een try ti). 
FreeMem(Old Fhone Menu, (I-11) *Sizeof (Phone Name)+2): 
FreeMem(Old Phone Stuff, (I-i)*51zeo0f (Phone Farams)): 
CEA+ 


end: 
Speco, Gast 
See wor Pialin 


To 
Let 


- 
‘ 

* 
a! 


g Directory: 


t aneal 
—_ 
~~ 


Frecedure Dirs: 


Replacement cdirectary 3 


= & 


2 ule 


nm 
mw rt 
sie 4 
me ~F 
mort 
oa 
Pa 
a ee 
Gh ait, 
Bp mM 
uw? Ww 
ip 
“y 1 
| ee 


‘* Reprinted with extensive modifications from Advanced Techniques in 
Turbo Pascal by Charles Edwards, by permission of Sybex, Inc. 
Copyright 1987 Sybex, Inc. All rights reserved. 

EFEEPREFFEFEFEERGEREE Continue Edwerds Excerpt Exe eERERFHPRERFR ED) 


(HERE KE KRKKEKKRHKEREREREE Continue Edwards Excerpt KEKKEKHEKEEERKEHEEKHEEH) 


VAR 
Greece + 10tecer. 
DirInfo : Dos.SearchRec; 
= 4 
Mask, 
Ootion » str Wie 
Directory_found : Boolean; 
FromLine : integer; 
Ch tr Chats 


Reqin 
Get Dir (Gea. 
If Open_Window(1,Start,80,Finish,Flag_HBorders,S) = 0 then; 
elite iets 
IF Open_Window J, Start + 5,970, Start + /, Pete kowec, —. 
‘Mask? *.* is default’ ) = © THEN; 
bGtOAY* {oie te 
Readin ( Mask ); 
IF Lenath (Mask } = © THEN Mask := ‘#¥.%*': 
If Clase Window then: 
Gloire. 
IF Open_Window ( S&S, Start + GS, iectuwet 4°97, Plaqgveenae =. 
‘OQptians?” ) = 0 THEN; 

GOtGAY 4% ieee 
Weite (°C mone = dir (Mask), ‘“'w'’ = dir (Mask) /w Jd‘): 
Readin ( Qption }; 
Tf Close Windaw then; 
imoetas 
LF Length © GG@tion == Ue Se eeea 

Gacory (ieee 

ShowDir ( Mask, 1, 12, error je 
END 
ELSE CASE Optieni ie ar 

"who, Wo +: Bela 

GeakoxY (1 sae): 
ViewDir (Weshee 1, 12 7; 
ea 
ENDesG CASE: 
GOLOXY “< 4. 
Write (‘’Finished...Press any key’): 
Ch := Readkey; 
If KeyFressed then Ch := Readkey; 
ff Close Window then; 
End = 4.67 saws: 


(® Reprinted with extensive modificatians from Advanced Techniques in 
Turbo Fascal by Charles Edwards, by permissian of Sybex, Inc. 
Copyright 1987 Sybex, Inc. All rights reserved. 
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Frocedure Change_DC Farameters: 
This procedure allows the user to choose from a list of Speed, 
parity, word length, and stop bit configurations) 
Var Is Integer: 
EFegin 
If Open _Window(67,1,79,22,Fiag Borders, ‘Haud-F-L-S') 
ocr: 
i:=Frocess Window Menu (Communications Menu) ; 
iol » O then 
Regin 
RS Cleanup; 
With Communications StufffIJ] do 
Begin 
RS Initialize (Current _Com,Speed,Farity,Stop,length) ; 
Silas 
Eerc: 
If Close Window then: 
Ends: <of Change_DC Farameters 


iH 
= 
rt 
ag 
D 
=] 


Procedure Hangup; 
af procedure hange lip the Hayes compatible modem: 


Repeat Begin 
Wn le nee ce = river® OO Cho t= Nosse Ins 
Delay (300); 
ENG 
Perl! not Ro2ic Avalls 
Petecom.send String!’ $44"): 
Delay (200); 
DataCom. Send Strina’’ATHO’+Char(CR)): 
Delay(i000); 
eee noese AY¥Yail do Ch := Raz3s2_Ine 
Enid; tof Hanauss 


Frocedure Dos Shell; 

CThie procedure opens a window and spawns a DOS command pracessor: 
Vee ee iar am, VIF sStrings 

I: Integer: 


(+ Reorinted with extensive modifications from Advanced Techniques in 
Turbo Fascal by Charles Edwards, by permission of Sybex, Inc. 
eonyright 1987 Sybex, Inc. All rights recerved. 
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Begin 
Frog:=Find_Emvironment ( ChMSkee as 
If Length (Frag) «<2 © then BEGIN 
Farams=" °; 
If Open _Window(40,5,60,8,Flagq_ Borders, DOS’) = 0 then; 
ELeSer: 
Writeln(’Opening Dos Shell‘); 
Write (‘Use EXIT when done’); 
es 
If Close Window then; 
lf Open _Windowl1,1,80,25,07 J 0 = Siem. 
Cilmoeine 
Ei abiig (ae iia: 
Exec (Prog, Faram); 
System. Chbiribir?: 
if daserrar «> © THEN BEGIN 
Tf Open _Window(40,1,75,2,Flag Borders, ‘DOS Error’) = © then; 
bl Eon 
Weitelnm (Error _CodelbDostrrord); 
bay (200s 
nse Windaw then: 
I# Close Wincow thens 
END 
Shee heb | 
If OQpen_Window(25,10,72,13,Flaq_ Borders, Baan 93s er 
Eiccale 
Wreitein(’ Unable ta apen DUS shell’); 


Write(’ ‘“"“COMSPEC’’ not founda in environment’); 
Gen) 
If Close Window then: 

END: 


En@s (eq emis ees ieee 


(# Renorintec with extensive modifications from Advanced Techniques in 
Turbo Fascal by Charles Edwards, by permissian at Sybex, Inc. 
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FUNCTION Operator input ¢ Title : Window : 
Ha } : PathStrige. 


12, Fiag_ Borders, Title } = © THEN 


t—4 
r" 
ea 
9 
iD 
= 
1 
= 
Ins. 
at 
1. 
I 
a 
Ue 
Le 
J 
~J 
Ch 
>) 


- o”. 
$07 
cfm Ln! * 


Hieieewn  \ Eromet 7. 
Readin { Response ); 
Operator _Input := Response; 
IF Close Window THEN: 
END 
SeoesOperatcr Input s= ° ; 
END: 


FROCEDURE COperator_message ( Title : Window_title; 
Message : FathString ); 


BEGIN 
IF Open Window ¢ 4G, 10, 80, 12, Flag_Borders, Title ) = © THEN BEGIN 
iaemectau® 
Writeln { Message ); 
END 
END: 


FUNCTION Frocess command : result; 


ERESE§: 
ee oes 


CONST Receive : boolean 
Transmit +: boolean 


VAR 
index : Byte; 
pesewemse =: Stringi2e: 
Restype : Response type; 
Preeonsa: Strimgizs: 
Errtyne : Response type: 
Framet See ei Meni c 
emi : butter: 


send : boolean: 
Server_ID : bytes 
status result: 
Mee: Cher: 

figvsnes : boolean: 
detugging « boolean: 


BEGIN 
debugging := FALSE; 
finished := FALSE: 
Pe eOreqeermcdow ww 1, 1, BO, 7, Flag Borderse= Remote Server’) = 0 THEN; 
GRE ales ay 
Server _ID := Active_Window™. ID; 
For index := 1 TQ 4 do BEGIN 
GotaxY ( i, index ); 
ooo ete. OF 
Weite (‘Server Version 1.0’): 
eee PUunGtwen = Laitializing ): 
Write («Status > Awaiting Command‘): 


tj fj = 


4 : Write (‘Command =: ‘); 
ENG Ce rome gs: 
END: 


Send := FALSE; 

Redirection := true; 

{Send string (‘xmodem st test.tst’)33 
TF Get Window ( Server_ID ) THEN; 
SOTO eae ioe 

Write (’Getting Command’); 

REFEAT 


status := Command Xfer ( Receive, buf, 128 ); 


UNTIL ¢ status = Rx_done ) OR (¢ status = Rx_keypressed ); 


IF Get _Window ( Server_ID ) THEN; 
Frocess command := status; 


IF ¢ status = Rx keypressed ) AND NOT ( debugging ) THEN BEGIN 


IF Claose_window THEN; 
WHILE keyoressed DO 
Ch := readkey: 

PALT 
END: 
GOTO 20 Gl See 
Weite (’Farsing Command’); 
GCRGK Ge te yee). 
Weite (‘Executing Command ‘):; 
SONS Fe Oe ee eee ae 


IF cebugaging THEN 


String to buf ( Operator_Input (¢ ‘Command’ 


apse 


Write ¢€ Buf _ ta string ( Buf ) 3; 


, server command’), 


Farser_ maint buf te string ( buf), Response, Restype, 


n 
Errear msg, Errtyoe, Eromsce: 


CASE Er et ygest = 


strng ; BEGIN 
IF Lengtn ¢ Errar_msaq ) 


* © THEN BEGIN 


string to buf ( Error _msq, Gttles 


REPEAT 


status := Command _Xfer ( Transmit, 
UNTIL ¢ status = Tx_dane 3 
OR (¢ status = Tx_keypressed ) 
OR ( status = Tx_CAN ); 
Fracess command := status: 


CASE status OF 


Bie 


bute 


rest |) | 


Tx _keypressed : BEGIN 
IF Close _ window THEN; 
WHILE keypressed DC 
Ch := readkey; 
flashed =.= (KUES 
EAGT: 
END; 


Tx CAN je lalela 
finished := TRUE; 
END; 
Bese GASE 
END; eee 
END: 


Pobewevrie * BEGIN 
status := xAmodm.Respond by file ( Error_msg ); 


ENDs 


nothing : BEGIN 
END; 


BND: (CASES 


TP NOT ¢¢€ finished >) OR (¢ status = Tx_CAN )}) THEN 


CASE Restype OF 
etrng : BEGIN 
string tae buf ( Response, buf ); 
lel a6 


status := Command xfer ( Transmit, buf, 128 ): 
NTIL ( status = Tx_done ) 
OR ( status = Tx_keypressed ) 
OR ( status = Tx_CAN ); 
Frocess commang := status; 
CASE stanus tir 


Tx kevpressed : BEGIN 
IF Close window THEN; 
WHILE keypressed DO 

Ch := reackey; 
finished := TRUE; 
aye ae 
END: 
Tx _CAN > =e iM 


finished := TRUE; 
END; 


r.J 
| 
are | 


tall le type > KEGIN 
status := Xmodm.Respond_ by_file ( Response ); 
END: 


nothing : BEGIN 
END; 


PNIs  GASE. > 
IF NOT finished THEN BEGIN 
IF Get _Window ( Server_ID ) THEN; 


GETOXY (ele 

Write (‘Forwarding Prompt‘); 

SOT OXY “(> 12a 

Write (‘Command Complete’); 

GELOAY ( sly es 

Write (‘Prompt : ° )3 

BEUeLY “Oe ee 

Write ( Prompt 3}; 

string _to_ Buf ¢ “M + Frompt, But ?}; 


REPEAT 
status := Commanc Xfer ¢( Transmit, buf, 128 ); 
UNTIL ¢ status = Tx_done ) 
ORF ¢ status = Tx_keypressed ) 
DR ¢ status = Tx_CAN ); 


Send CAN: 
WHILE keypressed DO 
CoS ="Feagie. 


Froces= command := status; 

TF Set Window ¢ Server_ID ) THEN; 
END; 
IF Close window THEN: 


END: 


CLEKEERHERE HK KEFRERRSEKER Start Edwards Excerpt Fee EER REKEKESRERERES ) 


f 


© 1 Sep 89 global variables eliminated + 


Comms _Fns : ARRAY (£1..9] QF STRING € 24 ] = ( 
‘Initialize port a 
‘Connect to current port -, 
‘Disconnect current port ‘, 
4 
4 


CONST Comms Menu : integer = 9; 


“ZCOFY file ta remote 
“LOGRY file feontgenece 
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‘Get machine status me 
‘Login to remote machine ‘, 
‘Reset remote server oe 
Aeolmees 1c =e 


Comms_Stat_Menu : integer = 

CGiime. stat : ARRAY £— 1..7 ] 
‘Comm Fort 
‘Speed 
‘Word Length 
Fat ey 
Steeedits 
‘Function 
‘Status 


75 
OF STRING C 16 ] = ( 


~ » ~ ~ ~ 
| 2 fl i) a a 


FUNCTION Comms_function : result; 


CONST Receive : boolean = FALSE; 
Transmit : boolean = TRUE: 


VAR 
I, 
Server _ ID, 
Save Window, 
Status Window, 
Remote Window, 
Function Windaw 7 eyie: 
Verbose : boclean; 
quit : baolean: 
List : EcuipmentListType; 


Frocedure Update Status ( Fn, Status : string ); 


VAR Jo: Integer; 


I 
f Get Window ( Status Window ) THEN; 
FOR J := 1 ta Comme Stat _Menu DO BEGIN 
emer vet 18, 7 ): 
Cae S)or 
WITH Comport C Current_CQM ] DO 
CASE! OF 
1: Write ( Current_COM ):; 
2“: Write ¢ Speed _MsglORD{ Speed ) + 1 J); 


(* Reprinted with extensive modifications from Advanced Techniques in 
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= : Write (¢ Length_Msgf Length-4] }):; 
4 : Write ( Parity_Msottign (GRReeeParity Jtl, Say; 
= : Write ( Stop _Msgl Staple 
6°: Write Gaereem 
7 * Write 4 Statue, 
END Come: 


END; 
IF Get Window ¢ Function_Window ) THEN; 
END; < Update Status 3} 


Fracedure Reset _ remote; 
{ This procedure forces the remote server to return to the 
command receive mode: 
BEGIN 
Update Status ( ‘Resetting’, ‘Flease wait. . .  ° 3); 
Xmodm. send CAN; 
delay (S00); 
xmodm. Send CAN: 
delay (30); 
Xmodm. Send_CAN; 
delay (a0). 
Xmodm.Senc_CAN; 
delay (GOO): 
END: 


Function Remote Command (¢ Commanc : Stringil2s } : boolean; 
VAR Ch char; 
status $: result; 


ue ao Gills tear 


Function stop _ case ¢ status : result ) : boolean; 


BEGIN 
Stop case := ¢ status = Rx _keypressed ) 
OR ¢ status = Re_CAN ); 
(OR ( status = Rx_done):> 
= 006 
BEGIN 


IF Verbose THEN Writeln (sending command’); 
strineg_ to _ Gut ( Command = gue 


(* Reprinted with extensive modifications from Advanced Techniques in 
Turbo Fascal by Charles Edwards, by permission of Sybex, Inc. 
Cooyright 1987 Sybex, Inc. All rights reserved. 

EEEEESEFEREEFEEIEFEFE Continue Edwards Excerpt FF xHXKeKFHEHKEEERES) 


br 
co 
o 


(HEE HEHHKEKEKEHHHEKKEE Continue Edwards Excerpt KEE EHHHKHHHHHHEE KEES) 


mela eia ll 
status := Commana Xfer ( Transmit, Buf, 128 ); 
UNTIL ¢ status = Tx done ) OR ( status = Tx_keypressed ); 
CASE status OF 
Tx_CAN, 
Tx keypressed : REGIN 
Update Status ( °°, ‘Aborted’); 
IF Get Window ( Remote Window ) THEN; 
WHILE keypressed DQ 
Ch s= readkeys 
Remote Command := FALSE; 
END: 


Tx _done : KREGIN 
Xmodm.Monitor_transfers := FALSE; 
IF Verbose THEN Writeln (‘Getting response’ 3}; 
REPEAT 
status := Get Response ( 128 ); 
UNTIL stop case ( status): 
CASE status OF 


Rx keypressed : 
IEGIN 
Writein 
("Aborteg by user waiting for response’): 
delay (1000); 
WHILE Keyopressed DO 
Ch t= readkey: ¢ clear the keypress 
Remote Command := FALSE: 


ut 


END: 
Rx done, 
Rx CAN 4 


BEGIN ¢ normally the signal to turn 
the link around for the next 
command 3 
Remote Cammand := TRUE: 
END; 
END: «< CASE 3 
END; 
END: .SGeee > 
END: < Remote Command 3: 


(* Reprinted with extensive modifications from Advanced Techniques in 
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Frocedure Rlogin; 


VAR quit : boolean; 
Command 2 9Seringa-c, 
buf : buffers 


REGIN 
quit := FALSE; 
Update Status ( ‘Login to remote’, ~° )3 
IF Open Window ( 1, 1, 80, 23, Flag_Borders, 
‘Remote system - ESC terminates’) = 0 THEN; 
i2Sere 
Remote Window := Active_Window™. 1D; 
IF Verbose THEN Writelin (‘synchronizing ); 
Writetn © Teyiic. some ee 
Command := ‘Frompt’; 
REFEAT 
IF WOT ¢ Remate_ Command ( Command ) ) THEN BEGIN 
Writeln (’Command failed’); 
Guit := TRUE; 
END 
ELSE BEGIN 
Command := Qperator_input ( ‘Command C"!<CR2" to quitl’, 
‘Command ta send to remote ‘ 3}; 
IF (Fos ( °!", Command 4-50) eiias Berea 


é 


Command := Operator_input ¢ ‘Quit’, “@uit? In, yl] °); 


quit s= (Command = ‘Y') OR (Cammand = ‘y’) 
OR ¢€ Cammand = °° 3; 
UNTIL (quit QR NOT (Command = ‘n’) QR NOT (Cammand = ‘N°)?}; 
SIMs 


ee tr (81 an 

Amodm.Manitar_transters := TRUE; 

IF Get Window ( Remote _Window ) THEN; 

IF Ciose Window THEN; <¢ Close the Remote Window : 
END: | (hi OGi ges 


Froecedure Rx File; 
CONST Curnt_COM : String £ 3 J] = Gaaie: 


VAR Pi: Patnstrige.: 
Command : String1i2e: 
Status : results 
quit : boclean;: 


(* Reprinted with extensive modifications from Advanced Techniques in 
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Capyright 1987 Sybex, Inc. All rights reserved. 

FERFLEESERSFKEEKREFEEE Continue Edwards Excerpt exe x LHERHEKEREHR EES) 


FJ 
£0 
aa 


(HHEKEEEKEREKRHEHERERE Continue Edwards Excerpt eke HHHHHEHEHEEEEEE ) 


Gh eenar. 
Settinas : byte; 
Bites BUTT ers 


BEGIN 
guit := false; 
Usdate Status (SREGCivVeRFile ye ' ); 


< Open message window 3 


IF Open_Window ( i, 12, 80, 20, Flag_Borders, 

‘Receive File Monitor - press any key to abort’) = © THEN; 
Wimoetce 
Remate Window := Active_Window”™. ID; 
Command := Ooerator_input (¢ “File ta Receive’, 

‘FULL Fath at remete sean 

Peete thee VYING a « ? § 
Peatncdmicmo € 2eopy + Command + © ° + Curnt_COM, Buf ); 
IF Verbose THEN Writeln (’sending command’); 


REFEAT 
etatus := Command xfer ¢ Tranemit, buf, 128 ); 
UNTIL ¢ statue = Tx_cane ) OR ¢( status = Tx_keypressed ); 
WHILE Keyoressed DO 
Ch := Reackey: 
IF status <3 Tx_done then BEGIN 
Weiteln (’Aborted by user on send’); 
delay (1000); 
GUI = crue: 
EMD 
SL SEy Reb ip 
Pelee meennaay (We, 1, S80, 25, 0, “°) = 0 THEN BEGIN 
Wiser: 
mee ( OD Dir )s 
meet “secapy.com' ,  ° + Curnt_COM 3}; 


RS Cleanups 
fe Restore ( Current CUM ); 
IF Close Window THEN; 
Tpetestrtore: >90 THEN BEGIN 
Weite@ln ( DOS Error ', Brremi€ode 6ebOSERRORs] }); 
Delay (2000); 
END: 
Syetem, chiDay ( Dir ); 
END; 


(* Reprinted with extensive modifications from Advanced Techniques in 
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IF Verbose THEN Writeln (‘Getting response’ ); 
REPEAT 
status := Get_Response ( 128 ); 
UNTIL ¢ status Rx keypressed ) 
OR ( status = Rx_CAN ); 
IF status = Rx_keypressed THEN BEGIN 
Writeln (‘Aborted by user waiting for response’); 
delay (1000); 
guit := true; 
END; 
Xmodm.Monitor_transfers := TRUE; 
END; 


{ Close message windaw + 


IF Close Window THEN; 
END; < Rama be > 
Frocedure Tx File: 
CONST Curnt_€OM : String ivSmie eli 


VAR Dir : Fathstring; 
quit s boolean; 
Command : Stringl28; 
Ln 5 (ere: 

Sito eer 
status =: result; 


BEGIN 
quit := false; 
Undate Status (¢ ‘Transmit File’, ‘' ); 


‘4, 


{ Open message windaw ;: 


IF Open_Window ¢ 1, 12, 80, 20, Flag_Borders, 

‘Transmit File Monitor - press any key to abort’) = 0 THEN; 
Wieser 
Remote Window := Active Window” .IL; 
Command := Gperator_input ( ‘File to Transmit’, 

“Full Path “(legen os 

Writelnle (7 Trevi. 1 .1 ee 
string to_but ( “scopy ~ + Curnmt eGh sepia 


(* Reprinted with extensive modifications from Advanced Techniques in 
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IF Verbose THEN Writeln (’sending command’); 
REPEAT 
status := Command Xfer ( Transmit, buf, 128 ); 
UNTIL ¢ status = Tx_done ) OR ( status = Tx_keypressed ); 
WHILE Keypressed DO 
Ch := Readkey; 
IF status <> Tx_done then KEGIN 
Writeln (‘Aborted by user on send’); 
delay (1000); 
quit := true; 
END 
BSE SeESIN 
IF Open Window ( 1, 1, 80, 25, 0, °°) = O THEN BEGIN 
CipSer: 
GeeWitee¢ O, Dir): 
Pee cegu- secon. , + Comtegad + © + Curnt_COM 2); 


RS Cleanup: 
Ro ResSbomer, Current a COM =). 
IF Ciose Window THEN; 
LE PoSseaioe. 728 THEN BEGIN 
Neleounm ie Shrar  . Error Code [ DOSERROR j ); 


Deiay (2000); 


END; 

System. ChDer ¢ Dir ); 
END: 
TF Verbose THEN Writeln (’Getting respanse’ ); 
REPEAT 


etatus := Get Response ( 120 ); 
status = R»_keypressec } 
OF ¢ status = Rx_CAN ): 

IF status = Rx_keypressed THEN BEGIN 
Wreitelm (’Abortesc by user walting for response’); 
delay (1000); 

Ourt := true; 

END: 

¥modm.Monitor transfers := TRUE; 

{IF Close Window THEN; > 

END: 


i | 


{ Clase messaqe window 3 


IF Close Window THEN: 
Bees 4 File + 


(* Reprinted with extensive modifications from Advanced Techniques in 
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Frocedure Get_Equip; 


VAR Command : stringi28; 
erp 9 asVlaes l=alar 


BEGIN 
Update Status ( ‘Getting remote equipment’, “' ); 
IF Open_Window ( 1, 1, 80, 23, Flag_Borders, 
"Remote system - ESC terminates’) = 0 THEN; 
Cit sem: 
Remote Window := Active _Window™. ID; 
IF Verbose THEN Writeln ('’synchronizing’); 
Writeln ( TFhysmo. ss. 2a). 
Command := “Equip’; 
string_ta_ buf ( Command , but ); 
IF ¢ Remote Command ¢( Command ) ) THEN; 
Xmodm. Monitor transters := TRUE; 
IF Close Window THEN: 


ENDS (Get Fat mae 


BEisT® 
Verbose := TRUE; 


TF Open Window ( 1, 2, 80, Comme_Stat_Menu + 3, Flag Borders, 
‘Current Fort ©) =s0 sb aie 
Status Window s:= Active Wincgow™. ID; 
Ci ese 
FOR Io := 1 TO Comms_Stat_Menu DO BEGIN 
GoTtaexyY ¢ i, I): 
Write ( Comms Stat £2 J 5. 
END: 


ioc 


le Open window ( 41, 2, 75, Comms Menu + 2, Flag_Rorders, 
etians’) = 0 THEN REGIN 


Function Window := Active Window”. ID; 


CliPSert 
Undate Status ({¢ °°, °° );3 
END 
LSE MPL Re lime eo ate 
REPRE 
IT := Frocess Window _Menu ( Comms_Menu ); 
quit := false; 


FASE i OF 
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i : BEGIN tInitialize port } 
Update Status ( “Intializing’, 
‘Select new parameters’ ); 
Change_DC_Farameters;s 
Save Window := Active_Window™. ID; 
RS Cleanup: 
WITH Comport C Current_COM J] DO 
RS Initialize ( Current_COM, Speed, Farity, 
Seopereenatkn ) § 
Update Status ( ‘Completed’, ’'); 
IF Get Window ( Save_Window ) THEN; 


END: 
= +: BEGIN .Conmect to port ; 
If Open Window(40,15,47,19,Flag_Borders, Fort’) = @ then; 
Cl eae: 


I:= Process Window Menu(Comm_Menu) : 
Peeve OMue. Lomas (HEN BEGIN 
Curren: COrM s= I; 
RS Cleanups 
WITH Comport C Current_COmM J DQ 
Se inltietice (selbbemt wl, Soecd, Farity, Stop, 


Wenge ms Je 
It Close Window then; 
ieee stam, ( ~ CORNecting ; ye 
END 
Eee 
Undate Status ( ‘Can‘’‘t’, ‘Fort out of range’ ?); 
END 


4, 


BEGIN <Diesconnmect current port 3} 
Wpgam@e Status ( Disconnecting , ?§ 
RS Cleanuss 

£ Disable those interrupts 3 


ted 


END; 

4 : BEGIN {Fut file to remote ; 
tpgeaeerstatis ( Futting File ,  — }% 
(oe 

END; 


(* Reprinted with extensive modifications from Advanced Techniques in 
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~ : BEGIN tGet file from remote } 
Update Status ( ‘Getting File’, ‘' }); 
Ru Files 
END; 
6 : BEGIN (Get machine status ? 
Get _ Equip; 
END; 
7 : BEGIN tLogin to remote machine ; 
Ra ogi. 
EIN. 
8 : BEGIN fReset remote machine } 


Reset _remate; 
Update Status ( ‘Reset’, ‘' ); 
END: 


WY 


wAmerpe simi S eet) Sia soc 
a Che 
END: 
END: {CASE} 


UNTIL (2 = 0) aor Cquit)s 
IF Clase Window THEN: 

IF Close Window THEN; 
Comms_Function := Tx_done; 


+ 


END; ¢ Comms Function 3} 


Fracedure Handle Alt _Key(B: Byte): 
CTRis procedure handles the ALT-Key cambinations. 


Input: B - the high arder byte returned from Check Keyboard 


%. 


Var il:iInteger; 
Seeaengmeach 111 4 
Cc 


acuS § ieee ts 


Begin 
Case F&F af 
ALi A: Regin tDrive and paths 
i¢ Open_Window(10,2,50,7,Flaq_ Borders, “Fath’) = 0 then; 
Gateecr s 
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Writeln (‘Enter new drive and path using format: '); 
eve lrnebeer'a ti \Patiterse oes 
Readin(S); 
If Length(S) * 0 then 
system.ChDir (5); 
If Close Window then; 


Sarak 

Alt_B: Begin <Break> 
RS Break; 
End: 

Alt_C: Beqin (Clear screens 

Meeity Entry <i): 

=irlele 

Alt_D: Begin (Dial; 
Dialing_Directory; 
Ema: 

Ali oee: Begin cEchos 


Been (25) : 
Echo:=not Echo; 


‘Siae]H 
Alt Fs: Begin «Data comm parameters: 
Change DC Farameters; 
Ee iens 
Aldea Begin cSshow disk directory: 
Dies 3 
aialare 
Alt_Hs Begin CHangup > 
Rees (250) 3 
AANQUP S 
SRG 


ie cam Beqin <DOS Shell: 
Dos_ Shell; 
ene: 
Alt_M : Begin 
Seats 3 
End; 
aye lee Beqin 
Scacus 
Ema: 


Comms Functions: 


Comms_Function; 


eylic 8 ee 
Eaom. : Begin t(Receive a file} 
If Ascii Download then 
Begin 
Close (Ascii File); 


(* Reprinted with extensive modifications from Advanced Techniques in 
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Asci1_Download:=False; 
If Open_Window(35,10,66,12,Flag_Borders,’’) = 0 then; 
Clie Star 
Write (’Receipt of file terminated’): 
ORC); 
If Close Window then; 
End 
else 
Transfer_File (False); 
SRG 
Alta. Begin <Activate Server +s 
REPEAT 
Status := Frocess Command; 
UNTIL ( status = Rx_keypressed ) OR 
( status = Tx_keypressed ); 


Ena. 
Alt_T, 
rouge Begin cIransmit a file) 
Transfer _File(True); 
Siayal / 
Bag Beqin Sy ae, 
Been (400); 
Enc Emulator:= TRUE: 
Tf End Emulator and Ascii Download then 
Close (Ascii Fiie): 
algae 
Home: Begin CHel pe 
If Open Windowt1,1,29,Min(20,Help Menut2) ,Flaq Borders, 
‘Help’)= 0 then: 
Atala ae 
Tr=Frocess Window_Menu(Helo Menu): 
If Close Wincow then; 
iff = Sena 
Handle Alt Key (Help _Index(lI]); 
‘latel 
Fise Begin 
Beep (1000); 
Ena. 


End: tot Case; 
Build Status Line; 
Fond; tof Handle Alt Key} 


‘* Reprinted with extensive modifications from Advanced Techniques in 
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Frocedure TTY (Ansi: Boolean); 
(This procedure provides basic teletype emulation. 
It suppresses NULsS and converts GS into a non-destructive backspace; 
Const Ansi_Init:Array [0..8] of Char = (#2 on eS ee 
ae Be : 
5 a 
Pelegcearray LO..71 of Char = ( 0° ie 2 ee we. 3 yee. 7): 
Var Ch:Chars 
Peimeegqer; 
Regs:Registers 


Frocedure WriteLF; 

Begin 

If not Ansi then 
Writeln 

else if WhereY := 24 then 
Begin 
Reas.Ax:=20601; 
Regs. CX: =$0000; 
Reqs.DxX:=f174F 
Regs.BH:=Backgraund shl 4 + Foreground; 
Intr (#10, Dos. Registers (Reqs) ); 
Gotoxy (1,24) ; 
Ena 

else 
Begin 
Regs. AH: =25 
Reg=ags2f=crs 
MSDos (Dos.Registers (Regs! ); 
End: 

End: «tof writeLF> 


Frocedure Writeit (Ch: Char); 

Begin 

if Anzsi then 
Begin 
Regs. AH: =2; 
Regs. DL:=Byte(Ch) ; 
MSDos (Dos.Reaqisters (Reqs) ); 
If WhereY = 24 then WriteLF; 
End 

else 
Write (Ch): 

End; tof Writeit: 


(# Reprinted with extensive modifications from Advanced Techniques in 
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Begin 
If Open Window(1,1,80,24,0,°°) = 0 then; (Save existing screen; 
Build Status Line; 
If Ansi then Hegin 

Regs.AH:=9; 

Regs.DS:=Seg (Ansi_Init); 

Regs. DxX:=0fs(Ansi_Imit); 

Ansi_Initf€22:=Colorsl{Foreground]; 

Ansi_Init€6]:=Colors({Backgroundd; 

MSDos (Dos. Reqisters (Regs) ); 
Ena: 
Eleocr. 
Repeat Begin 

Ch:=Check Auxport; 
Cace Byte (Ch) af 
NUL: 3 <iThrow it away) 
oe BRecin (Non-destructive backspace; 
If WhereX = 1 then 
GotoXxy (Wherex-1,Wherey? 
ise if WhereY += i then 

GotoxXY(80,Wherey-!) 
e] 


In 


Gotoxy (80,24) ; 
Eig 
ate bhi Cele s 
Else Feoin 
We Pree ea). 
Ene 


S2i)e= 0 ther 
Hancie Alt Key (Hi (I)) 


Se 
Regain 
Brie Chear Cee wi ae. 
poe oo aes 
Pe Seem rett 
Begin 
Write1lt (Ch): 
lt Ch = Chart@sa ye aem 
We tebe 
If Print then 
Reqin 
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Write (LST,Ch); 
If Ch = Char(CR) then 
Win eeciS),Char (LF) )s 
Ena: 
End; 
EnG* 
Eng 
vied) Encaemilater s 
If Ansi then 
Begin 
Regs. AH: =9: 
Regs. DS:=Seqg(Ansi_ Init); 
Regs.DxX:=Ofs(Ansi Init); 
Ans1_Initl€32)]:=ColorslCLightGrayl; 
Ansi_Init€4j]:=Colors(Black]; 
MSDos (Dos. Registers(Regs)); 
alayart 
I¢ Close Window then; 
Sag AGt 4 Pye 
<The auter block of Distrib. It performs all necessary initialization 
and presente the user with a iist of terminal emulators from which to 


seiect: 


Var I: Integer: 


etatuc : result: 
command taii : string; 
Bevin 
GetDir(0,Current_FPath); (# save current directory for restoration *) 
Init_Window_Infao;: 
Tf Qoen_ Window (1, | eng ety Ce ee — a een « 


eWeort initialize: 

IF FaramCount = © THEN BEGIN 
rommand tail := FaramStr (1 ); 
EumpStrUp ( commarid tall ); 

END: 

TF ¢ (€ FaramCount = 0 >) AND ( command_tail = ‘SERVER’) ) 

OR ¢ FaramCount = © ) THEN 
REFEAT 
status := Frocess cammand;: 
UNTIL ¢ status = Tx_keypressed ) QR ( status = Rx_keypressed ) 


(+ Reprinted with extensive modifications from Advanced Techniques in 
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FLSE REGIN <¢< Master or maintenance function 3} 
End Emulator:=False; 
Emulator:=‘ANSI‘; 
TTY (True? s 
END; 
Repeat 
until Close Window; ¢ Close out all windows } 
System.ChDir (Current_Path); (* restore the previous directory *) 
Eiice 
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APPENDIX AB 


CONFIGURATION FILE STRUCTURE 


A. DISTRIE.CFG FILE STRUCTURE 


This ais the data structure recorded in the DISTRIB.CFG file when a 
configuration 1s saved. This structure can be accessed from the 
Distrib program main menu by pressing the special key combination 
pee, tor Update Contia File. 


ile Data Structure for the Default Configuration 


Thig 1s the data sStructure in the Support Unit that 1¢ 
recorded in variable Current of type Default_Type. 
Const Defaults : Default_Type = 

(Default Name +: ‘DISTRIB.CFG’; The file name to 
mocifys 

Default Com eee The default communications 
mer t 

Default Modem ey The defauit modem port 

Default FPhane ec cied . 

Default Speed Pobre The default comm gort 
speed 

Defauit Parity : None; The default comm port 
parity 

Default _Lenqth : &: The default comm port 

Defauit Stop eine The default comm port 

Default_Ecnho:False; Enable Half Duplex 

befauketieveceloger:  LightG&ray: The detault text 
colar 

Pefault Menucolor:Green: The default menu color 

Default Hackcolor:Black; The default backaround 
color 

Defame Pir OCt iv: Sal viG awa. 3 The default modem 


Sialing prefix 
Default Delay: 20) ; The default delay to wait for 
connection 


APPENDIX AC 


DOCUMENTATION FOR ZCOPY PROGRAM 


This 1s the documentation for the Zcopy program used for file 
transfer (Flanders, 1955, pal zal — 2 


ZCOPY.COM 
Command 


Rob Flanders 
1989 No. 4 (Utilities) 


Furgose: Transfers files at high speed, via a serial link, between 
machines that do not share a common disk format. 


Format: ZCOPY sottce ([tCargetdriy wil snl iit /ot ee ol Gd 


Remarks: The two machines must be IBM-compatible and must be connected 
by a standard "null modem" cable. ZCOFY 1s executec, with approsriate 
Parameters, on both machines: a 30-secand (default) cannect timeout 1¢ 
nrovided. 


On the sending machine both a source (filename plus any needed 
drive ang path) and 4a target {‘COM1 or COMMS) must be specified. 7 Cee 
suocorts the * anc Y DOS filename “wildcards,” but 1t does not permit 
renaming files curing transfer. 
the receiving machine the source is COMI or COM2, and the target, if 
Le must be a directory path. (Any needec subdirectories must 
reated on the receiving machine before using ZCOFY.) 


ey 


‘hcl a | | ee 
mT 0 

ny 
tient) .t 

— 

{- 

— 

ID 

Ci 


The aptional /w anc /n switches oaperate before cannection is 
ectablishec, and sc are entered on the ZCOFY commana line oaf each 
machine. The /wW parameter prolongs the default connection timeout 
indefinitely; it can be cancelled with Ctrl-Break., The /n parameter 
sets the highest bit-per-secona (bps) rate at which ZCOFY will attempt 
to transfer data. If used, 1t must be the same on both machines. The 
default ais /i (i115 kbps). Other acceptable values are /2 through /6 
(37,6 kbps, 28.4 kbps, 19.2 kbps, Seu Ppp eee 4800 kbos, 
respectively). If ZCOFY cannot maintain error-free transfer at a given 
transfer rate, it automatically steps dawn to the next lower speed. 


The cther optional parameters may be entered on either machine's 
COPY command line. The /u (Update) switch permits overwriting 
ame-named files on the receiving machine without operator confirmation 


Wi IM 


ms 


if the source file 18S more recent. The /o (Overwrite) switch 


suppresses the confirmation prompt for all files. By default, when 
ZCOPY receives a disk-full signal, before aborting it tries to finda 
smaller selected source file that will fit on the receiving disk. The 


Zerpert OM Full? aborts at the first disk-full imdication. The /p 
(Fause) switch creates a pause before the transfer operation begins 
after the connection between machines has been made. 
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